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1.0 GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 


The aztec front-end host diagnostic is a diagnostic program to test 
ine Sana disk drive subsystem. Tests are performed to verify 
at: 


a. The processor can properly communicate with the aztec 
through the adapter card. 


b. The aztec can seek and head select properly. 


c. The aztec conforms to the specified seek and 
rotational times. 


d. The aztec can perform certain basic functions in 
response to mscp commands. 


The aztec front-end/host diagnostic consists of one program that runs 
in the host processor and programs that run in the aztec controller's 
buffer memory through an interpreter called the ‘‘diagnostic machine” 
which resides in the aztec. The host processor program will be 
responsible for testing the aztec adapter, testing some of the drive 
functions, downline sending the “diagnostic machine’’ programs into 
the aztec and starting their execution. When the ‘‘diagnostic 
machine"’ progress are running, they will control the testing by 
requesting the host processor to supply information and print error 
messages. The ‘diagnostic machine’ programs will inform the 
processor when a test is complete. 


Up to four (4) aztec controllers with one or two spindles each may 
be selected for test by this diagnostic. 


One aztec ‘‘unit’’ is defined as a single platter. There are two 
peaccere on one spindle in an aztec drive. an aztec controller may 
ave either one or two drives (two or four platters). the unit 
numbers for the aztec platters come in pairs. the removable media 
ae an even number and the fixed media has the sequentially following 
number. 


Software parameter questions include number of retries in case of 
an error, whether to continue execution after failures, select 
seek area in the disk, select manual intervention test and 

set trace mode. 


This diagnostic is divided into 6 modules: 

module 0 - documentation 

module 1 = literals, format statements, ascii text, | 
global data, hardware configuration questions 
and default tables, software parameter questions 
and default table, initialization code, cleanup 
code, summary report code 

module 2 = global routines 


module 3 = tests 1 = 12 *tbase level** 





module 4 = tests 9 _ 12 (dm code) 
module 5 = last address and setup section 


AZTECO.R16 is a file containing Literals and field 
delarations used throughout the program. 


This diagnostic has been written for use with the diagnostic 
runtime services software (supervisor). These services provide 
the interface to the operator and to the software environment. 
This program can be used with XXDP+, ACT, APT, slide and paper 
tape. For a complete description of the runtime services, refer 
to the XXDP+ user's manual. There is a brief Jescription of 
the runtime services in section 2 of this document. 


1.2 SYSTEM REQUIREMENTS 


PDP-11 Processor 

28k Words of memory (minimum) 

XXDP+ Load media 

One or more aztec disk drive subsystems 
Line clock = either type L or P 
Console terminal 


1.3 RELATED DOCUMENTS AND STANDARDS 


AZTEC = RC25 Functional specification Rev 5, 3/9/82 
Mass storage control protocol (MSCP) (version_1.0) 
Unibus/Q-bus sterege systems port (version 1. 


Diagnostics and utilities protocol (R. Lary, May 1981) 
Aztec diagnostic project plan 

Diagnostic engineering functional specification for aztec 
Resident diagnostics 


XXDP+ User's manual 

1.4 DIAGNOSTIC HIERARCY PREREQUISITES 

The bus, host processor, memory, system clocks and console terminal 
are all assumed to be funct toning properly when this diagnostic is 
run. If they are not, the result of running this program is 
unpredictable. 

1.5 ASSUMPTIONS 


An aztec that meets the specifications for diagnostic machine timing 
will meet the specifications for MSCP timing. 


2.0 OPERATING INSTRUCTIONS 


This section contains a brief description of the rurtime services. 
for detailed information, refer to the XXDP+ user's manual (CHQUS). 


2.1 COMMANDS 
There are eleven legal commands for the diagnostic runtime services 


(supervisor). This section Lists the commands and gives a very 
brief description of them. The XXDP+ user's manual has more details. 


COMMAND EFFECT 

START Start the diagnostic from an initial state 
RESTART Start the diagnostic without initializing 
CONTINUE Continue at test that was interrupted (after “C) 
PROCEED Continue from an error halt 


EXIT Return to XXDP+ monitor (XXDP+ operation only!) 


ADD 


DROP 
PRINT 


DISPLAY 
FLAGS 
ZFLAGS 


Activate a unit for testing (all units are 
considered to be active at start time 


Deactivate a unit 


Print statistical information (if isiplemented 
by the diagnostic = section 4.0) 


Type a List of all device information 
Type the state of all flags (see section 2.3) 
Clear all flags (see section 2.3) 


A command can be recognized by the first three characters. 
So you may, for example, type ‘‘STA’’ instead of ‘’START"’. 


2.2 SWITCHES 


There are several switches which are used to modify supervisor 
operation. These switches are appended to the legal commands. 
ALL of the legal switches are tabulated below with a brief 
description of each. In the descriptions below, a decimal number 
is designated by ‘DDDDD"’. 


SWITCH EFFECT 
/TESTS:LIST Execute only those tests specified in 
the list. List is a string of test 
numbers, for example - /TESTS:1:5:7-10. 
This List will cause tests 1,5,7,8,9,10 to 
be run. AlLl other tests will not be run. 
/PASS :DDDDD Execute DDDDD passes (DDDDD = 1 to 64000) 
/FLAGS:FLGS Set specified flags. flags are d»scribed 
in section 2.3. 
/EOP:DDDDD Report end of pass message after ever 
DDDDD passes only. (DDDDD = 1 to 64000) 
/UNITS:LIST TEST/ADD/DROP only those units specified 
in the list. List example = /UNITS:0:5:10-12 
use units 0,5,10,11,12 (unit numbers = 0-63) 








Example of switch usage: 
START/TESTS: 1-5/PASS: 1000/EOP: 100 
The effect of this command will be: 
. Tests 1 through 5 will be executed. 
2. ALL units will tested 1000 times. 


3. The end of pass messages will be 
printed after each 100 passes only. 


A Switch can be reccgnized the first three characters. You 
may, for example, type ‘'/TES:1-5°' instead of ‘‘/TESTS:1-5"". 


Below is a table that specifies which switches can be used by 
each command. 


TESTS PASS FLAGS EOP UNITS 


x 
xX 


Xx 
x x 
X 


2.3 FLAGS 


Flags are used to set up certain operational parameters such as 
looping on error. ALl flags are cleared at startup and remain 
cleared until explicitly set using the flags switch. Age - 
are also cleared after a start command unless set using the 
flag switch. The ZFLAGS command ay also be used to clear 
all flags. with the exception of the START and ZFLAGS commands, 
No commands affect the state of the flags; they remain set or 
cleared as specified by the last flag switch. 


EFFECT 


Halt on error = control is returned to 
runtime services command mode 


Loop on error 

Inhibit all error reports 

Inhibit all error reports except first 
level (first level contains error type, 
number, PC, test and unit) 


Inhibit extended error reports (those 
called by PRINTX macro's) 


Direct messages to Line printer 

Print test number as test executes 

*BELL"’ on error 

Unattended mode (no manual intervention) 
Inhibit statistical reports (does not apply 
to diagnostics which do not support statis- 
tical reporting) 

Inhibit program dropping of units 

Execute autodrop code 


Loop on test 


Execute evaluation (on diagnostics which 
have evaluation support) 


*error messages are described in section 3.1 


See the XXDP+ user's manual for more details on flags. You may 
specify more than one flag with the flag switch. For example, 
to cause the program to loop on error, inhibit error reports 
and type a ‘BELL*” onerror, you may use the following string: 


/FLAGS :LOE : IER: BOE 








2.4 HARDWARE QUESTIONS 


When a diagnostic is started, the runtime services will prompt, 
the user for hardware information by typing ‘‘CHANGE HW (L) ? 
roy must answer "Y'’ after a start command unless the hardware 
nformation has been ‘'preloaded”’ using the setup utility (see 
chapter 6 of the XXDP+ user's manual). When you answer this 
question with a ‘Y'', the runtime services will ask for the number 
of units (IN DECIMAL). You will then be asked the following 
questions for each unit. 


# UNITS (D) ? 


Answer wiith the number of units to be tested (no default). This 
answer will determine how a times the following questions are 
asked. A unit is a logical disk (single platter) on an aztec. 
One to sixteen units may be specified (maximum configuration of 
four controllers with four platters per controller). 


IP ADDRESS (0) 172150 ? 


Answer with the address of the IP register of one aztec controller 
as addressed by the processor with memory managenent turned off 
(i.e., an even 16-bit address in the range of 160000 to 177774.) 


VECTOR (0) 154 ? 


Answer with the interrupt vector address of the aztec controller. 
A vector address in the range of 4 to 774 may be specified. 


BR LEVEL (D) 5? 


Answer with the interrupt priority used by the aztec. levels 4 to 7 
are accepted. 


UNIT NUMBER(S) (D) 0 ? 


answer with the ar platter number(s) for the platter(s) you wish 
to test (NO DEFAULT). The removable platter is an even number and the 
fixed platter is the sequentially followng odd number. 


2.5 SOFTWARE QUESTIONS 


After you have answered the hardware questions or after a restart 
or continue command, the runtime services will ask for software 
parameters. These parameters will govern some sregeer se specific 
operation modes. You will be prompted by ‘‘CHANGE SW (L) ?°' if you 
wish to change any parameters, answer by typing ‘'Y’’. The software 
4 + aa and the default values are described in the next paragr- 
aph(s). 
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Use top surface for all single surface tests (L) Y ? 
Answer yes to use top surface for all _——_ surface Sesting. 
answer no to use bottom surface for all single surface testing. 


Do you wish to Limit the area tested in tests #13 through #15 (L) N ? 

Answer yes if you wish to spect ty a starting and ending track for the 

test area. this limitation applies only to seek verification beating. 
tests #135 through #15. The following two questions will be asked only 
if this one is answered yes. 


Starting track (D) 0 ? 


Answer with the beginning track number_of the area you wish to select 
for testing. This applies to tests #13 through #15 only. 


Ending track (d) 799 ? 


Answer with the last track number in the area y- wish to select for 
testing. This applies to tests #13 through #15 only. 


Do you want to do the manual intervention test (L) Y ? 


Answer yes to do the test of the write protect switches. Answer no 
to omit this test. 


Do you need trace mode (L) Y ? 


Answer no if you do not like the test names to be printed out. 
Default is yes. 


2.6 EXTENDED P-TABLE DIALOGUE 


When you answer the hardware questions, you are building entries 
in a table that describes the devices under test. The simplest 
way to build this table is to answer all questions for each 
unit to be tested. If you have a multiplexed device such as 
a mass storage controller with several drives or a communication 
device with several tines, this becomes tedious since most of the 
answers are repetitious. 


To illustrate a more efficient method, supqese you are testin 

a fictional device, the XY11. Suppose this device consists o 

a control module with eight units (sub-devices) attached to it. 
These units are descrived by the octal numbers 0 through 7. There 
is one hardware parameter that can vary among units called the 
Q-FACTOR. This Q-FACTOR may be 0 or 1. Below is a simple way 
to build a table for one xy11 with eight units. 


# UNITS (D) ? 8<CR> 

UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
0<CR> 


SUB-DEVICE # (0) 2 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 2 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 1<CR> 
Q-FACTOR (0) 1 ? O<CR> 





UNIT 3 

CSR ADDRESS (0) 160000<CR> 
SUB-DEVICE # (0) 2<CR> 
Q-FACTOR (0) 0 ? <CR> 


Ve 


UNIT 4 

CSR ADDRESS (0) 160000<CR> 
SUB-DEVICE # (0) 3<CR> 
Q-FACTOR (0) 0 ? <CR> 


-weu 


UNIT 5 

CSR ADDRESS (0) 160000<CR> 
SUB=-DEVICE # (0) 4<CR> 
Q-FACTOR (0) 0 ? <CR> 


ewe 


UNIT 6 

CSR ADDRESS (0) 160000<CR> 
SUB=DEVICE # (0) 5<CR> 
Q-FACTOR (0) 0 ? <CR> 


ww 


UNIT 7 

CSR ADDRESS (0) 160000<CR> 
SUB-DEVICE # (0) 6<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


eVev 


UNIT 8 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) 7<CR> 
Q-FACTOR (0) 1 ? <CR> 


Notice that the default value for the Q-FACTOR changes when a 
non-default response is given. Be careful when specifying 
multipie units! 


~~ 


As you can see fromthe above example, the hardware parameters 
do not vary + sh he ad from unit to unit. The procedure shown 
is not very efficient. 


The runtime services can take multiple unit specifications however. 
Let's build the same table using the multiple specification feature. 


# UNITS (D) ? 8<CR> 

UNIT 1 

CSR ADDRESS (0) 160000<CR> 
1<CR> 


SUB-DEVICE # (0) ? 0, 
Q-FACTOR (0) 0 ? 1,0<CR> 


veu 


UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) 2-5<CR> 
Q-FACTOR (0) 0 ? O<CR> 


~~ 


UNIT 7 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 6,7<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


» 
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As you can see in. the above dialogue, the runtime services will 
build as many entries as it can wit the information given in any 
one pass through the questions. In the first pass, two entries 
are built since two sub-devices and Q-FACTORS were specified. The 
services assume that the CSR address is 160000 for both since it 
was specified - * once. In the second pass, four entries were 
built. This is cause four sub-devices were specified. The 
-"* construct tells the runtime services to increment the data 
from the first mumber to the second. In this case, sub-devices 
2, 3. 4 and5 were specified. (If the sub-device were specified 
by addresses, the increment would be by 2 since addresses must 

on an even boundary.) The CSR addresses and Q-FACTORS for 
the four entries are assumed to be 160000 and 0 respectively 
since —_ were only specified once. The last two units are 
specified in the third pass. 


a whole process could have been accomplished in one pass as shown 
e low. 


# UNITS (D) ? 8<CR> 

UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 0Q=7<CR> 
Q-FACTOR (0) 0 ? 0,1,0,,..1.1<CR> 


As you can see from this example, null replies (commas enclosing 
a null field) tell the runtime services to repeat the last reply. 


2.7 QUICK START-UP PROCEDURE (XXDP+) 
To start-up this program: 
1. Boot XXDP+ 
Give the date 


Type “'R Name"', where name is the name of the bin or bic 
file for this program 


Type *’START’’ 

Answer the "‘CHANGE HW’ question with ‘'Y’’ 
Answer al! the hardware questions 

Answer the "'CHANGE Sw’ question with ‘N"’ 


When you follow this procedure you will be using only the 
defaults for flags and software parameters. These defaults 
are described in sections 2.3 and 2.5. 


3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


There are three levels of error messages that may be issued by 
a diagnostic: general, basic and extended. General error messages 
are always printed unless the "IER" flag is set (section 2.3). The 
general error message is of the form: 





m1 


Name type number on unit number tst number PC: XXXXXX 
error message 


-where; NAME = Diagnostic name 
TYPE = Error type (SYS FATAL, DEV FATAL, HARD or SOFT) 
NUMBER = Error number 
UNIT NUMBER = 0 - N (N is Last unit in ptable) 
TST NUMBER = Test and subtest where error occurred 
PC:XXXXXX = Address of error message call 


Basic error messages are messages that contain some additional 
information about the error. These are always — unless 
the IER" or ““IBR'’ flags are set (section 2.3). 

are printed after the associated general message. 


hese messages 


Extended error messages contain supplementary error information 
such as register contents or good/bad data. These are always 
rinted unless the “‘IER"’, "‘IBR’’ or “‘IXR'* flags are set (section 
-3). These messages are printed after the associated general 
error message and any associated basic error messages. 


3.2 SPECIFIC ERROR MESSAGES 
The following are device fatal error messages: 


1) RCSA FAILED TO RESPOND 
2) RCIP FAILED TO RESPOND 


3) INIT STEP READ ERROR 
STEP MASK = XX FAILING REGISTER = DATA = 
XX = = STEP 1 READ FAILURE 
XX = 2 = STEP 2 READ FAILURE 
XX =4 = STEP 3 READ FAILURE 
XxX = 10 = STEP 4 READ FAILURE 


4) STEP READ DATA DOES NOT MATCH 
ADDRESS: EXPECTED: READ: 


5) VECTOR AND BR LEVEL TEST FAILURE 
INTERRUPT AT 35 BR LEVEL= 

NO INTERRUPT FROM PORT / CONTROLLER 
BR LEVEL RECEIVED/TYPED IS INCORRECT ! 

HOST DETECTED TIME OUT ERROR 

RING BUFFERS NOT CLEARED BY THE PORT 

DATA ECHOED FROM RCSA DOES NOT MATCH 

MEMORY BUFFER DOES NOT CONTAIN EXPECTED DATA 
DM CODE RETURNED FAILURE CODE 

¥ UNIT DOES NOT COME ie 

COMMAND FAILURE 


SUP_PROG DUP 
cERD DATA DUP COMMAND FAILURE 
REC_BATA DUP COMMAND FAILURE 


te et td td ot I OOD NO 
veeww 


POT OTOL SO ere 


The following are self-detected fatal port/controller errors. 
These will be reported as extended error messages when RCSA 
data contains fatal error codes: 


SFTLERR= UNRECOGNIZABLE ERROR CODE 

SFTLERR- ENVELOPE/PACKET READ (PARITY OR TIMEOUT) 
$FTLERR= ENVELOPE/PACKET WRITE (PARITY OR TIMEOUT) 
SFTLERR= CONTROLLER ROM AND RAM PARITY 

SFTLERR= CONTROLLER RAM aren Yh 

SFTLERR= CONTROLLER ROM PARITY 

SFTLERR= RING READ (PARITY OR TIMEOUT) 

SFTLERR= RING WRITE wore’ OR TIMEOUT) 

SFTLERR= INTERRUPT MASTE 

SFTLERR= HOST ACCESS. TIM MF GUT 

SFTLERR- CREDIT LIMIT EXCEEDED 

SFTLERR= BUS MASTER ERROR 

SFTLERR=- DIAGNOSTIC Cour es FATAL ERROR 

SFTLERR= INSTRUCTION LOOP TIMEOU 

theme pea CONNECTION IDENTIFIER 

SFTL INTERRUPT WRIT 

SFILERR= MATHTENANCE READ/WRITE INVALID REGION IDENTIFIER 
SFTLERR= pen — CE WRITE LOAD TO NON-LOADABLE CONTROLLER 
SFTLERR= C LLER RAM ERROR \NON-PARITY) 

$SFTLERR- INIT SEQUENCE ERROR 

SFTLERR= HIGH LEVEL PROTOCOL PC OPST EOL ETE ERROR 

$F TLERR- lee y tha A HARDWARE F R 

$FTLERR- MAPPING REGISTER READ ERROR (PARITY OR TIMEOUT) 
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beipattagietcas fatal port/controller errors 


SFTLERR= VAX a sh ot ERROR ON INTERRUPT 
SFTLERR= INCONSISTENCY AT U.BFIL 
INCONSISTENCY “ U.BMTY 
INCONSISTENCY AT U.ALOC 
INCONSISTENCY AT SERVO ENTRY (PIP SET) 
INCONSISTENCY AT SERVO ENTRY (ERR SET) 
ISTENCY AT U.SEND 


SFTLERR= INCONSISTENCY AT U.CKSV 
SFTLERR= D.OPCD FOUND ILLEGAL OPCODE 
SFTLERR= D.CSF FOUND ILLEGAL OPCODE 
SFTLERR= UNKNOWN BAD DRIVE STATUS AT D.DSTS 
SFTLERR=- ILLEGAL XFC ee BY DM 
SFTLERR= D PICKED UP A ZERO SCB.DB 
tt boas INCONSISTENCY AT D IDLE LOOP 
DM WORD COUNT ERROR ON a eS 


$ TLE 

SFTLERR= DRIVE NOT FAULTING 

SFTLERR~ U POWER UP DIAGNOSTICS FAILED 
uP rier aes FAILED 


SFTLERR=- EC.TMR TIMED OUT 

SFTLERR- U. SEND/U. oy 5 RING READ —e 
SFTLERR= UNKNOWN WAITRV REASON AT 

SFTLERR= D.ARCS DID Nor FIND CLOSEST UNDONE ZONE 


SFTLERR= U.HTST INIT DIAG DMA COMPARE FAILED 
SFTLERR= U.SYDR FOUND SS.DER SET AND SS.SPN NOT SET 
SFTLERR= MASTER DRIVES ACLO ASSERTED 








Cc 2 


The following are return status messages. If response status 
error, then one of DUP return status codes or MSCP codes 
will be printed out. 


SFTLERR= RESPONSE STATUS ERROR: 
SFTLERR= SUPERVISOR sev CALL FAILED 
SFTLERR= PORT/CONTROLLER TIMEOUT ERROR 
SFTLERR= UNKNOWN RETURN STATUS CODE 


! Dup return status codes 
SUCCESSFUL 
INVALID COMMAND 
NO REGION AVAILABLE 
NO REGION SUITABLE 
PROGRAM NOT KNOWN 


ALOAD FAILURE 
STANDALONE 


i MSCP return status codes 
"SUCCESS 


I 
WRITE PROTECTED 
COMPARE ERROR 
DATA ERROR 
HOST BUFFER ACCESS ERROR 
CONTROLLER ERROR 


DRIVE ERROR 
MESSAGE FROM AN INTERNAL DIAGNOSTIC 








4.0 PERFORMANCE AND PROGRESS REPORTS 


At the end of each pass, the pass count is given along with the 
total number of errors reported since the erypnees”s was started. 
The ‘EOP’ switch can be used to control how often the end of pass 
message is printed. Section 2.2 describes switches. 


5.0 DEVICE INFORMATION TABLES 


The Supervisor builds one Hardware P_Table for every logical 
unit tested while answering Hardware P_table questions. 

This diagnostic gets one table at a time in sequence and 

runs diagnostic tests as selected. The P_table looks like this: 


HWP_TABLE : 
0 :HWP_IP_ADDRESS : 


:HWP_VECTOR 


2 
4 :HWP_BR_LEVEL : 
6 


:HWP_UNIT_NUMBER : 


6.0 TEST SUMMARIES 
A brief description of the tests done are described below: 
TEST #1 REGISTER EXISTENCE TEST 


This test will first check for the existence of the address of the IP 
and SA registers for the device under test. If these memory addresses 
are non-existent, the error will be reported. 

If the operator has specified loop on error, looping will be from the 
beginning of each sub test. 


TEST #2 INITALZATION TEST (POWER UP DIAGNOSTICS) 


writing with step 1 data. Then it will c 


: eck for errors and 
report if aztec does not come upto step 


read. 


This test init’s the aztec and runs the ~y¥ up diagnostics by 
2 


TEST #3 DIAGNOSTIC WRAP TEST 


The aztec will be initialized in diagnostic wrap mode and a one bit 
and also zero bit floated through the SA register to see that it 
echoes properly. 


A failure to echo what was written will result in a callout to the 
adapter card fru. 


If the operator has specified loop on error, the program will loop on 
the failing write and read. 
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TEST #4 = VECTOR AND BR LEVEL TEST 


The init sequence will be started with the interrupt enable bit set to 
verify the aztec’s vector and BR level. 


This test assumes the vector given by the operator is correct. 
The priority level of the interrupt request will be verified. 


Failure of the aztec to vector properly will necessitate that this 
program be restarted. A completed interrupt at the wrong BR level 
will be reported. 


Loop on error will restart this test if the error is recoverable. 
TEST #5 STEP 1 -3 INITIALZATION TEST 


This test will check for information echoed from the port at 
each step read — upto that step from scratch. If there 
was an error reported or echoed information was incorrect 
the error will be reported. Loop on error will be from the 
beginning of sub test. 


Port gives some information about the Port at every step read 
in RCSA Register. This information will be printed out to the 
operator as follows: 


1) At step 1 read the following will be given: 
PORT SPECIFIC INFO: /NV/QB/DI1/0D/MP/ = xx (0) 


NV = 1 means that the port does not support a host settable 
interrupt vector address 

QB = 1 means that the Port supports a 22-bit host bus. 

This bit will be a 0 for unibus. 

DI = 1 means that the Port implements enhanced diagnostics, 
i.e. wraparound, purge and poll tests. 

OD = 1 means that the Port allows odd host address to be 
specified in the buffer descriptor. 

MP = 1 means that the Port supports address mapping. The 
host supplies a virtual data address in the buffer 
descriptor which is mapped to a resultant address 
using mapping registers maintained in host memory. 

KX Two digit octal value of the above right justified. 


2) At step 2 read the following will be given: 
PORT TYPE NUMBER = xx (0) 


KX 0 means UNIBUS/QBUS storage systems port. 


3) At step 4 read the following will be given: 
MICRO CODE: MODEL = xx (0) VERSION = yy (0) 


xx = UDASO 
1 RC25 Integrated Controller 
5 TU81 Integrated Controller 
6 UDASOA 
7 QDRX01 : 
yy = Mod 16 value of the actual controller microcode 


version. 


F 
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TEST #6 PURGE AND POLL TEST 


This test will perform the first three steps of the init sequence. 
When the host responds to the step 3 transition it will write a one 
bit to bit 15 of the SA register, therby request ing the execution of 
purge and poll testing. The host then waits for the SA register to 
transition to a zero value. The host then writes zeroes to the SA 
register otaulat ine a "purge completed’’ host action. the host then 
reads the IP regis er to simulate a ‘'start polling’’ command from the 
host to the port. The test is complete when the controller announces 
the transition to step 4 in the SA register. 


Failure to properly complete this test will be reported. 
Loop on error will restart the test. 
TEST #7 = SMALL RING BUFFER INIT TEST 


The aztec will be initialized without interrupts and using the 
smallest ring buffer. This will be the first time that the 
initialization sequence is carried out to completion. Initializing 
with the smallest ring buffer minimizes the host memory area with 
which the aztec controller must be able to communicate. 


Failure to properly initialize the aztec and com_area will be reported. 


If the operator has specified loop on error, looping will be from the 
start of this test. 


TEST #8 = LARGE RING BUFFER INIT TEST 


The init sequence is executed without interrupts with a ring buffer 
Large enough to cover the normal host communciations area packer and 
buffer space ( a 5 in message length and a 5 in command length). 


A failure to complete the initialization sequence without error will be 
reported. 


If the operator has specified loop on error, looping will be from the 
beginning of this test. 


TEST #9 = ‘DIAGNOSTIC MACHINE’’ CODE DOWN LINE LOAD TEST 


This ‘Diagnostic Machine’ program will attempt to transfer a block 
of data from host memory to an area in the controller and then 
examine the transfered data. 


If the transfered data does not compare correctly, then an error will 
be reported. This test also reports errors if any of the routines 
used returned failure code. 


If the operator has specified loop on error, looping will be from 
the start of this test. 


TEST #10 = NONEXISTENT MEMORY TEST 


This ‘Diagnostic Machine’ program will attempt to read the first 
address of the 1/0 page of the host CPU. This location is reserved 


for diagnostics and a nxm should occur. 


If the controller does not see the nxm, there will be a fru callout 
of the adapter card. 


If the operator has specified loop on error, looping will be from 
the start of this test. 


TEST #11 = BUS ADDRESSING/DATA TEST A 


This hg aged Machine”’ preeres asks the PDP-11 program to fill free 
memory (that memory available to the PDP-11 gre ram that is not being 
used by the program or the PDP-11 supervisor) with an addressin 
pattern (write address with address) and report the location and size 
of the free memory. Every location of free memory will be read and 
the data checked. 


If the data does not compare correctly, the address, data expected 
and data received are reported. 


TEST #12 = BUS ADDRESSING/DATA TEST B 


This test first brings aztec drive Ready and Online and then 
loads DM_12 program vector to port controller memory, then 
does the following: 


Give free memory address and buffer size to DM code 
and ask DM code write a pattern of one's complement 
of address at the address and expects to receive 
success or failure code from DM program. Then checks 
memory buffer for the expected pattern and reports 
error if encountered. 


If success, asks DM code to write to memory a pattern 
of all ones and checks for the pattern in memory. 


If success, asks DM code to write to memory a pattern 
of all zeroes and checks for the pattern in memory. 


If failure, retries will be done as controlled by 
a software question. Loop on error flag will | 
loop from beginning of test to the point of failure. 








7.0 MAINTENANCE HISTORY 
Modified By: Date: Version: 


REARS AAAAAAAAAAE EERE AEEAAEEAEEAEEAAAEREEREEEAEAAAAAAAEEEEERE 
This is a base level release with tests 1 thru 12. A complete 
diagnostic with all 29 tests will be released in the following 


release cycle. 
REESE AAAAAAEEEAEEEAAEEEEEEERARAEAEEEERAEEEAEAEEEREAEEEEEEEE 
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SEQ 21 
ZRCFAI CZRCFAO RC25 FR END TESi VAX-11 Bliss-16 V3-555 pone 1 
Bajuta19 SPIDERSUSERS: CLAKSHMANA.11REL.REALIZRCFA (1) 


MODULE ZRCFA1 mr CERCEAR, RC25 FR END TEST’ 
ADDRESSING ONODE * (RELATIVE) 

BEGIN 

1 <BLF /LOWERCASE _KEY> 


Library "AZTECO'; ! AZTEC LIBRARY 

require ‘BLSMAC.REQ’; ! DIAGNOSTIC SUPERVISOR LIBRARY 
asbttl "PROGRAM HEADER AND TABLES‘ 

: DEFINE THE NUMBER OF TESTS IN THIS DIAGNOSTIC 


anal 
code = AASCODE; 


literal 
DSSNBR_OF_TESTS = 12; 


POINTER (ALL); 


'++ 
i THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


2 od 
SCUONOAMUSWN-o 


HEADER geile CZRCF *, Zascii’A’, Zascii'O*, 120, 0, PRIOO); 
i: eg NTS ARE: "NAME, REV »PAT CH, LONGEST TEST TIME, TYPE 
RE ‘‘TYPE’’ = 0 FOR SEQUENTIAL DIAGNOSTIC AND =1 
FOR EXERCISER. THERE IS ALSO AN OPTIONAL SIXTH ARGUMENT 
WHICH SPECIFIES THE PROCESSOR PRIORITY TO BE SET WHEN 
STARTING THE DIAGNOSTIC (DEFAULT IS 0). 


eee ek ek ed td td td ot 
PAPA UII VIII IT 


™m 


MV 


fwn= 
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ooee 22 
ZRCFAI CZRCFAO RC25 FR END TEST 8-Jul-1983 VAX-11 Bliss-16 V3-555 page 
v01.0 DISPATCH TABLE 8-Jul-1983 SPIDERSUSERS: CLAKSHMANA.11REL .REALJZRCFA (2) 


Z%sbtti "DISPATCH TABLE’ 
‘ee 


i THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
a IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


rrororr 


td ad ad td 
MUM UIVIUIVT 
Wo O00 NOU 


WWW 


DISPATCH (DSSNBR_OF _TESTS); 
ERRTBL; 
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ZRCFAI CZRCFAO RC25 FR END TEST 8-Jul-1983 15:2 
v01.0 DEFAULT HARDWARE P-TABLE 8-Jul-1983 14:1 


%sbttl "DEFAULT HARDWARE P-TABLE* 


'++ 

i THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
' THE TEST=DEVICE PARAMETERS. THE oo CTURE OF THIS TABLE 
i I$ IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES, 

i ngs IS USED AS A ‘‘TEMPLATE’’ FOR BUILDING THE P-TABLES. 


SEQ 23 
1:53 VAX-11 Biiss-16 V3-555 Page 3 
3:00 SP IDERSUSERS: CLAKSHMANA.11REL.REALIJZRCFA (3) 


SEAS 


BGNHW (DFPTBL); 


global 
- IP ADDRESS : word initial we % 
VECTOR : word initial (%0°154"), 
F “BR LEVEL : word initial (5), 
UNIT NUMBER : word initial (0); 


MAMA TAMUIVIVIV 


Se Ge Ge Ge Ge Se Ge Se Ge Se Ge Ge Ge Ge BeBe ee 
me ce ee ce ee ee ce ee ed ee ed ed eed eed eed ed od nd 
NAMM 
EE REE REE EE UIN 
CODNAUEWN O00 


551 enous; 
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SEQ 24 
ZRCFA1 CZRCFAO RC25 FR _END TEST 8-Jul-198 VAX-11 Bliss=16 V3=555 page % 
01.0 SOFTWARE P-TABLE 8-Jul-198 SPIDERSUSERS: CLAKSHMANA.11REL.REALIJZRCFA (4) 


%sbttl "SOFTWARE P-TABLE* 


i "THE SOFTWARE TABLE CONTAINS VARIOUS DATA USED BY THE 
' PROGRAM AS OPERATIONAL PARAMETERS. THESE PARAMETERS ARE 
i i AT RUN — TIME AND MAY BE VARIED BY THE OPERATOR 


BGNSW (SFPTBL); 
global 


AAAS MMNAMMNVVIVIV 
WS CONOULEWI 


P : word initia : USE TOP ges FOR SINGLE SURFACE TESTS 
: word init M TESTED 


oO 


WPTMANUAL : wo DO MANUAL _IN I 
SWPTTRACE : w ; DO YOU NEED TRACE MODE? 
ENDSW; 


me ee ee ce ee cc cee cee ee ee ee ee ce ced eed ed eed eed eed ed 


RR 





M2 


i 2. 
ZRCFAI CZRCFAO RC25 FR_END TEST : VAX-11 Bliss-16 V3-555 page 
v01.0 PROTECTION TABLE 8-Jul=1 : SPIDERSUSERS: CLAKSHMANA. 11REL.REALIJZRCFA (53 


Zsbttl "PROTECTION TABLE’ 


'e¢ 


i THIS TABLE IS USED BY THE RUNTIME SERVICES 
: TO PROTECT THE LOAD MEDIA. 


rita?! (-1, =1, =1); 
= “OFFSET INTO P=TABLE FOR CSR ADDRESS 
OFFSET INTO P-TABLE FOR MASSBUS ADDRESS 
OFFSET INTO P-TABLE FOR DRIVE NUMBER 


ENDPROT; 
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SEQ 26 
ZRCFAI CZRCFAO RC25 FR END TEST 8-Jul-19 : VAX-11 Bliss-16 V3-555 Page 6 
v01.0 GLOBAL DATA SECTION 8-Jul-19 : SP IDERSUSERS: TLeAKSHMANA. 11REL.REALIZRCPA (6) 


%sbttl ‘GLOBAL DATA SECTION’ 


144 
i THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
it IN MORE THAN ONE TEST. 


ett © Splits pistol? 
global 5 $GLOBS nowrite, noexecute, global, concatenate), 
own = Sown$; 


VVIMIVIVIVIVIVMIVIVIV 
BIRARAV LS OOS 


ww 


structure ! DEFINE ACCESS ALGORITHM 
rc25 CO, P, S, EJ = ! TO ALLOW FIELD REFERANCES 
begin ! TO THE AZTEC 


See83 


local 
RC_REG; 


RC_REG = .(RC25 + Zupval*0)<0, %bpval, 0>; 
RC_REG 


S885 


Ie 


en 
<P, S, E>; 


oo 


al 
: vector CWORD1_IN_RT_TAB, word], 'RUNTIME TABLE STORAGE 
: ref tlogk NrWORDI i NRT TAB, word] field (RT_FIELDS), ‘RUNTIME TABLE POINTER 
: ref block CUORD? th HUP_TAB, word) fletd (Pwr FIELDS), 
: vector (256, word], TRAN ING DATA. BUFFER 1 
: vector (256, word], BUFFER 2 


ee ee ee 


AAAAXAC-. 


OF ON SYSTEM 
STORE CSR ADDRESS FOR CLOCK HERE 
STORE CLOCK HERTZ RATE 

STORE CLOCK START VALUE 

UNIT UNDER TEST THIS PASS 


word, 
dete & olatile, VECTOR ADDRESS OF AZTEC 
: ret Reo5 field (RC ft). ! DEFINE REFERANCE TO AZTEC FIELDS 
: block £2, word) field ( RC_ REG), 
: blockvector CREC_ALLOCATE + SND_ ALLOCATE + HDR_SIZ, 2, word], 
: ref block (4, word] bs a A : my 
: ref blockvector cREC A 


POROROPOPIIY 2 2 
CONAULSWA —OVOONOUSWwh Oo 0On 


POOR ET OO teehee 


Mr 


ek kk ed ed ed td dd 
WW 
Oo 


ARO 


RB_ 
> blochuecter CSND- “ALLOCATE. sB- + 2, Ww ray ft 
: word volatile, ' BUFFER BESCRIPTOR AREA 
: word volatile COMMAND REFER ay > 
TE_COUNT : word volatile, BYTE COUNT BUFF 
: word initial ti) volatile SOTRE THE NUMBERS OF CLOCK INTERRUPTED 
: word initial (0) volatile, ONDS 
: word initial (0) volatile, RE MINUTES 
: word, i STORAGE FOR NUMBER OF rest IN PROGRESS 
: word volatile, AZTEC ST E DAT 


E 
: word volatile, AZTEC 3 
E 


ee et et et et ee ee wee af 


: word volatile, ' AZTEC 
DATA4 : word volatile, ! AZTEC 
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SEQ 27 
END TEST 8-Jul=1983 123¢ : ; VAX-11 Bliss=16 V3=-555 


ZRCFAI CZRCFAO RC2S 1:5 Pa 
v01.0 3:0 SPIDERSUSERS: CLAKSHMANA. 11REL.REALIZRCFA (6) 


FR 
GLOBAL DATA SECTION 8-Jul-19835 14: 


1_AM_NEX : word initial (0) volatile, ! INTERUPT FLAG 
MSGADR : word volatile, ' 
END_LBN : word initial (1593) volatile, ' ENDING LON TRACK 


-UNIT_FLAG : word volatile, 
1 = word volatile, 
P2 : word volatile, 
P3 : word volatile, 
P4 : word volatile, 
PS : word volatile, 
P6 : word volatile, 
RET_STATUS : word volatile 
CANCEL _TIMER : word volatile, 
CMD_SLOT : word volatile, 
RES_SLOT : word volatile, 
L6N : word volatile 
: word volatile, 
: word volatile, 
: word volatile, 


SAVES VARIOUS RETURN STATUS 
INIT SEQUENCE INTERRUPT 
COMMAND DESCRIPTOR SLOT 
RECEIVE DESCRIPTOR SLOT 


STARTING LOGICAL BLOCK # 
ENDING LOGICAL BLOCK # 
CREMENTING LBN 


SIZE 
NG og _— ADDR. 
OW-BYTE FREE MEMORY AD 


DR. 
HIGH-BYTE FREE MEMORY ADDR. 
BUFFER LENGTH 


MS ODONAOULSWN—OOONOuUSw 


: word volatile, 
: word volatile, 


me me ee ee ee ee ee ed ed ed ed ed td od = = od = = 
SERSRSRSC COSC TOCOOSESESES 


co~ 


IES : word volatile, 
: word initial (FALSE), 
: word initial (1), ! FAIL STATUS 


: word, 
: word volatile; 
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seen o., 
ZRCFAI CZRCFAO_RC25 FR END TEST 8-Jul-1983 1 ; VAX-11 Bliss-16 V3-555 page 
v01.0 GLOBAL TEXT SECTION 8-Jul-1983 1 : SPIDERSUSERS: CLAKSHMANA. 11REL .REALIJZRCFA cs 


%sbttl "GLOBAL TEXT SECTION’ 


o 
o 


+4 

i THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
i MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 

i MORE THAN ONE TEST. 


ee bind 
RINGBASE = COM oat rm BASE], 
TIME = plit (PZ, 


i FAILING FRU'S 


iny = uplit (Zasc iz" ZAFAILING FRU = ZTZD3%N'), 
ADAPTO = uplit (Z%asciz‘ADAPTOR BOARD FOR UNIT #: 2"). 
CONTRO = uplit (Zasciz* CONTROLER we FOR vary #:"), 
DRIVE uplit (Zasciz‘DRIVE BOARD IT #:° 

CHAN unlit (%asciz"MECHANIC cere POR UNIT #: *S, 


HARDWARE AND SOFTWARE QUESTIONS 


uplit (Zasciz‘IP TORS ). 

uplit (Zasciz" VECTOR’) 
QST3 = uplit (Zasciz'BR LEV eL* 

QST4 = unlit (Lascis" PLATTER ADBRESSCES)*) 

QST6 = uplit (Zasciz*USE TOP SURFA.é FOR SINGLE SURFACE TESTS"), 
= up (Zasciz'DO YOU WISH TO. LIMIT AREA TESTED IN TESTS #13 THRU #15"), 

Zasciz’ STARTING or K"), 

Zasciz' ENDING TRACK 

(%asciz'DO YOU WANT 16 DO THE MANUAL INTERVENTION TEST?"), 


D TRACE 
(Zasciz"DO YOU WISH TO CONTINUE TESTING AFTER A inl 
(Zasciz*NUMBER OF RETRIES FOR | TEST IF ERROR OCCURED’) 
(Zasciz "UNIT STARTING TRACK #°), 
{peed He ENDING T 
( 


SREGEER=S 


AavVs 


QRAR 


ee ek ee ek ek a ed dd dd 
& 
co rs] 


NAAAAAAAAO 
S38 


a 
SAAN 
o Sooooo 


g 


( 
( 
t 
t 


TRACK #° 
Zasciz*TURN OFF WRITE PROTECT SWITCH AND DO <CR>*), 
Zasciz’TURN ON WRITE PROTECT SWITCH AND DO <CR>"), 


ee 
! THE FOLLOWING MESSAGES INCLUDE THE NAMES OF EACH ROUTINE, PLUS 
: _FORMAT STATEMENTS FOR PRINTING OUT OTHER INFORMATION. 


(ZASCIZ° SEARN TALES) ING UNIT#:2ZD3%2A IP_REGISTER:%06%A PLATTER#:%D32N"), 


EST 1 REGISTER EXISTENCE TEST"), 
(Zasciz*ZNZATEST 2 STEP 1 READ/UR ITE POWERUP’ DIAGNOSTICS'), 
(%asciz*ZNZATEST 1 THROUG 3 READ/WRITE TEST’), 

(Zasciz'ZNZATEST 3 C TEST") 
(Zasciz°ZNZATEST 4 VECTOR AND BR LEVEL | rest" ), 
(Zasciz*ZNZATEST 6 PURGE AND POLL TEST’ 
(Zasciz"ZNZATEST 7 SMALL RING TEST‘), 


NANNY 
VIANNA SSS SSS 
SSBNRAKRWNLSOBVNARMNRWN=SO 
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oe 29 
ZRCFAI CZRCFAO_RC25 FR END TEST VAX-11 Bliss=-16 V3-555 9 
v01.0 GLOBAL TEXT SECTION SPIDERSUSERS: CLAKSHMANA. 11REL. REALIZRCPA (7) 


(Zasciz*ZNZATEST 
cease iz, eMeATE St 


ARGE RING TEST") 


ODE OVERLAY T 
TENT MEMORY 


aay 
SOOCONOUE 

$35 

Mod 

=< 

bat 


oo Seowoe 
eeeeees 
OS) See ee 

ow 
at 
o 


m 

te 

sez 
2 
— 


OOTH SEEK AND VERIFY"), 
VERGING/DIVERGING SEEK AND VERIFY"), 
LE SEEK AND VERIFY") 


Qui klUn— 
555555555 
sae 


™m 


(Zasc 12° ZNZAT ES OM SEEK 

(Zasciz*ZNZATEST 21 SECTOR ACCESS TES 

(Zasciz' ZNZAT est 22 CONTROLLER PROCESSING TIME"), 
(Zasciz*ZNZATEST 23 ONE TRACK S TIME * ), 

(Zasc iz*ZNZATEST 24 ing SEEK TIME‘ 
(Zasciz°ZNZATEST 25 F i STROKE sex TIRE"). 
(Zasciz' ZNZATEST 26 Unite DATA TEST") 


AAAS 
SHON SORRRAAAARRRRAS 
SoONOUFWN=OO 


WAG 
WnN— 


(Zasciz VENT CONTINUE’ 

(Zasciz* XNZATEST 27 OFFSET TOLERANCE TEST’ ). 

(Zasciz"ZNZATEST 28 AVERAGE ROTATIONAL TIME"), 

(Zasciz*ZNZATEST 29 URITE PROTECT TEST"), 

(Zasciz'ZNZA MANUAL INTERVENTION TEST NOT PERFORMED"), 


SYSTEM ERROR MESSAGES 


asc. 01 = uplit (Zasc iz" ZNZAPOWER DELAY - WAITING"), 
ERR_O1 = uplit (Zasciz*ZNZATOO MANY 
ERR_ “02 = uplit (Zasciz*ZNZANO CLOCK WAS FOUND ON THE SYSTEM"), 


FORMATTED ASCIC STRINGS 


intsc = uplit (%asciz*%NIN°) 

FMT1 Lit (Zasciz'ZNZA “REGISTER FAILED TO aoe AT agoness Z0geN"). 

M 0 ZA XPECTED: Z%062A READ 206%N'), 

= Z02%A FAILIN [REGISTER = Z06%A DATA = %06%N'), 


ORT TYPE NUMBER 

PORT SPECIFIC INFO: IES /QB/DI/OD/MP/ = 702"), 
FMT6 asci MICRO CODE: MODEL = 20 02% A VERSION = 202°). 
FMTSA = t (Zasciz'ZN%A NUMBER OF RETRIES =%D4") 


INIT ERROR MESSAGES 
sc. PWR = uplit (Zasciz‘ WAIT _ POWER oral RECOVERY"), 


= uplit (Zasciz'RCSA FAILED TO RESPO 

t (Zasciz‘RCIP FAILED TO RESPON 
l 

l 


NanN 


MUI 


ee ee ee ee ee ek ec ee a ae ee a ed ed ed ed ed dd 
SOVUVONOMULSWN— 
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upLit 
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it 
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ND 
Zasciz‘ Test nto § IN RCSA IS INCORRECT"), 


uP 
up yp AILURE"), 


up 
up 


up 
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ae 
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Lj 
i Zasciz*PORT FATAL 


ERROR") 
Zasciz'INIT STEP READ ERROR"), 
it (Zasciz'MEMORY BUFFER DOES NOT CONTAIN EXPECTED DATA’), 
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SEQ 30 
CZRCFAO_RC25 FR END TEST go jutn is 15:21:53 VAX-11 Bliss=16 V3-555 page 10 
GLOBAL TEXT SECTION ~Jul-1983 14:13:00 SP IDERSUSERS: CLAKSHMANA. 11REL .REALJZRCFA (7) 


Zasciz'DM CODE RETURNED FAILURE CODE") 
Zasciz'3N%A INTERRUPT AT VEC= %03%A BR LEVEL= 201"), 
INTERRUPT FROM PORT / CONTROLLER a 
BR LEVEL RECEIVED/TYPED IS INCORRECT !*), 
PURGE AND POLE TEST SET ERROR BIT 
D POLE TEST DID NOT SET STEP 4 “BIT 14"), 
EAR RING BUFFER‘) 


NS 
Zz 
=O 
nm 
> 
a 


AILURE?) 
(Zasciz*SEQUENTIAL FORWARD SEEK FAILURE‘) 
(Zasciz* SEQUENTIAL REVERSE SEEK FAILURE’ ); 
cgeec te Seal Ie EXPIRED’), 
Zasciz*ZNZAFATAL ERROR’), 
Ciasciz"ANEAD A A OFFSET VALUE = as 


ZA NUMBER OF SEEKS = %05') 
cate e CURRENT TRACK = 104A — TRACK = %04'), 
uplit (Zasc iz" ZNZAEND PACKET STA S ERROR = zoyea REF # = %02") 
(Zasciz’ ZNZABUS ADDRESSING DATA y a ERROR 
| ed at andy Tae ADDR = %06%A D RRR GEN"). 
Zasciz'ZNZABLOCK DATA TRANSFER FAILED") 
its aaee FAILURE *) 


(Zasciz'ZNZAHEAD SWITCH FAILE 
t (Zasciz'FAILING Syne ee = Pat TRACK # = %062N"), 
Zasciz*READ SECTOR F a a F 
asciz‘AFAILING TRACK # = %06%A SECTOR # = %062N') 
asciz'WRITE PROTECT re AO i, ). 


VLLARGRASLASSSSSSSSSSIBIZIZS 


So DONANE WOON 
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—“SOO0OnoOuw 


COMMAND 
UP COMMAND F AILURE® ? 
patie eee i2 REC nb DATA DuP COMMAND FAILURE"), 
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ZRCFAI CZRCFAO_RC25 FR _END TEST 8-Jul-1 


SEQ 31 
983 1 53 VAX-11 Bliss-16 V3-555 
01.0 GLOBAL TEXT SECTION 88-Jul-1983 


15:21: page 11 
14:13:00 SPIDERSUSERS: CLAKSHMANA. 11REL.REALIZRCFA (8) 


i 
! Self-detected fatal port/controller errors 
PFE_STRUCT = uplit ( 


©2900 G9 00 00 Co 
EAT wy tert} 


(%asciz"ZNZASFTLERR= UNRECOGNIZABLE ERROR CODE") 
(Zasc iz* INZASFTLERR= ENVELOPE/PACKET READ (PARITY OR TIMEOUT) ') 
TLERR ELOPE/PACKET WRITE (PARITY on T TIMEOUT) *5, 


coco 
Ww 


WONAULWN—O Oo 


NG WRITE 5, 
= INTERRUPT MASTER’) 
HOST ACCESS S TIMEOUT), 

TLERR- CREDIT LIMIT EXCEEDED’ +. 
(Zasciz' ZNZASFTLERR= BUS MASTER ERROR‘) 
(Zasc iz" ZNZASFTLERR= DIAGNOSTIC CONTROLLER FATAL ERROR"), 
(Zasciz'ZNZASFTLERR- INSTRUCTION LOOP TIMEOUT ' 
(Zasciz*INZASFTLERR- INVALID CONNECTION IDENTIFIER"), 
(Zasciz2‘ INZASFTLERR- INTERRUPT WRITE‘ 
(Zasciz"ZNZASFTLERR= MAINTENANCE READ/WRITE INVALID REGION IDENTIFIER"), 
(Zasc iz’ ZNZASFTLERR= MAINTENANCE WRITE LOAD TO NON-LOAD ABLE CONTROLLER’), 
(Zasc iz) ZNZASETLERR= CONTROLLER RAM ERROR (NON=PARITY) *) 


(Za FTLERR- INIT SEQUENCE ERROR"), 

Cease te A INTASETLERR= HIGH LEVEL PROTOCOL INCOMPATIBILITY ERROR"), 

(Zasciz' 2NZASFTLERR= PURGE/POLL HARDWARE FAILURE ‘ 

(Zasciz' ZNZASFTLERR=- MAPPING wise Se (PARITY OR TIMEOUT) *) 
: vector e 
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] 
: Error message structure 


EMSG_STRUCT = velit ( 
uplit (Zasciz'ZNZASFTLERR= RESPONSE STATUS ERROR:%S"), 
uplit (Zasciz’ZNZASFTLERR= SUPERVISOR SERVICE CALL FAILED’), 
uplit (Zasciz"ZNZASFTLERR= PORT/CONTROLLER TIMEOUT ERROR"), 
7 t Phen al cc ene UNKNOWN RETURN STATUS CODE')) : vector C4], 
° page 
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SEQ 33 
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' 
; Self-detected fatal port/controller errors 
RC STRUCTURE = lit ¢ 


it TZasciz' INZASF VAX READ/WRITE ERROR ON INTERRUPT"), 
(Zasc iz* ZNZASFTLERR- T U.BFIL 1:3. 


STENCY AT U. AOC 
(Zasciz*ZNZASFTLERR= INCONSISTENCY AT SERVO eNfRy (PIP SET)*), 
(Zasciz*ZNZASFTLERR= INCONSISTENCY a oa tA sl (ERR SET)"), 
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PROC SUSPENSION (U.. yadligs 
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(Zasc iz* ZNZASFTL LERR= INCONSISTENCY AT D IDLE LOOP'), 

(Zasciz' INZASFTLERR- DM WORD COUNT ERROR ON HOST DMA/SEND/RECV'), 

(Zasciz‘ TLERR= UNKNOWN DISPLA — AT D.DFLT'), 

(Zasciz * SNZASFTLERR~ DRIVE NOT FAULTING 

(Zasciz* ZNZASFTLERR= U POWER UP DIAGNOSTICS FAILED® ». 

(Zasciz* ZNZASFTLERR= D POWER UP DIAGNOSTICS FAILED"), 

(Zasc 12° ZNZASFTLERR~ ADAPTER CARD FAI LURE* ), 

(Zasciz* ZNZASFTLERR=- EC.TMR TIMED OUT’ 

(Zasciz' ZNZASFTLERR- U. SEND/U. acy RING” READ 30 3) eal 

TLERR= UNKNOWN WAITRV REASON or 8 
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(Zasciz*ZNZASFTLERR= U.SYDR FOUND SS. OER SET AND SS.SPN NOT SET"), 
(Zasciz' ZNZASFTLERR= MASTER DRIVES ACLO ASSERTED’) 
) : vector (39), 
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: ; Dup return status codes 


SUP. STRUCT = uplit 
i (Zasciz ZA. sUcessFuLan") 


ALID COMMAND 
‘HAND. REGION TU TLESN'), 
REGION SUITABLEXN'), 

T KNOWNIN'), 
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' 
MSCP return status codes 
SMSCP_ STRUCT = lit ¢ 


uplit (fase iz ZASUCC CESSZN°), 
uplit (Zasc iz’ ZAINVALID COMMANDEN®}. 
uplit (Za Cc ABORTEDZN') 
uplit (Zasciz'ZAUNIT-OF FLINEZN’ : 
uplit (Zasciz'ZAUNIT-AVAILABLEZN*) 
uplit (Zasciz'ZAMEDIA FORMAT E af 
uplit (Zasciz*ZAWRITE PROTECTEDZN"), 
uplit (%asciz* ZACOMPARE ERRORZN*), 
uplit feed EM ped ERRORZN'), 
uplit (Zasciz’ZAHOST BUFFER ACCESS ,ERROREN"), 
uplit Clase |2"EACONTROLLER ERRORZN'), 
uplit (Zasciz*ZADRIV IN‘), 
uplit (Z%asciz‘ PARC OSAGE RPO AN INTERNAL DIAGNOSTICZN*) 
) : vector (13); 
end 
eludom 
TITLE ZRCFAi1 CZRCFAO RC25 FR END TEST 
-IDENT /V01.0/ 
-PSECT HASCODE. RO 
132 122 LSNAME::.ASCII /CZR/ 
106 040 eASCII /CF / 
BYTE O 
BYTE 0 
LSREV 
ASCII /A/ 
ASCII /0/ 
LSUNIT::.WORD TSPTHV 
LSTIML::.WORD 170 
LSHPCP::.WORD L$ 
LSSPCP::.WORD LS$SOFT 
LSHPTP::.WORD LSHW 
LSSPTP::.WORD LS$SW 
LSLADP::.WORD LSLAST 
L$STA:: .WORD 0 
L$CO:: .WORD 0 
L$DTYP::.WORD 0 
LSAPT:: .WORD 0 
LSDTP:: .WORD LSDISPATCH 
LS$PRIO::.WORD 0 
LSENVI::.WORD 0 
LSEXP1::.WORD 0 
LSMREV:: 
BYTE 3 
BYTE 3 
LSEF -WORD 0 
WORD 0 
L$SPC:: .WORD 0 
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GLOBAL TEXT SECTION 8-Jul-19 : SPIDERSUSERS: CLAKSHMANA.11REL .REALIZRCFA 3 


Leeeees LSDVTYP 
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DSPCNT: : 
LSDISPATCH 


v01.0 
000060 
000062 
000064 
000066 
000070 
000072 
000074 
000076 
000100 
000102 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
000122 
0001 
000126 
000130 
000132 
000134 
000136 


ERRTYP: :. 


<<LSNDHW-LSHWLEN>/2> 
-5630 
154 


WORD 
172150 P.IP.ADDRESS:: 
000154 P.VECTOR:: 

WOR 
000005 P.BR.LEVEL:: 
<WORD 5 
000000 P.UNIT. =NUMBER :: . 
L$NDHW::.BLKW 1 


000000C LSSWLEN:: 
: <<LSNDSW-LSSWLEN>/2> 
000001 SWP.TOP:: 


000000 SuP.LIMIT?: 
SuP.START +: 
SWP.END:: 
SuP.RETRIES: 
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SEQ 37 
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v01.0 GLOBAL TEXT SECTION 8-Jul-1983 14:13:00 LO DERSUSERS: LLAKSHMANA. 11REL.REALIZRCFA (12 
«WORD 
000000 SwP.CONTINUE 3! 
000000 SUP .MANUAL : : 
000001 SWP. TRACE: : 
«WORD 
LSNDSW:: 
177777 L$PROT::.WO 
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SEQ 38 
ZRCFAI CZRCFAO RC25 FR END TEST 8-Jul-1983 15:21:53 VAX-11 Bliss=-16 V3-555 Page 18 
v01.0 GLOBAL TEXT SECTION 8-Jul-1983 14:13:00 SPIDERSUSERS: CLAKSHMANA.11REL.REALIJZRCFA (12 
000170 040 106 117 ASCII / FO/ 
000173 122 040 125 eASCII /R U/ 
000176 116 111 124 ASCII /NIT/ 
000201 040 043 072 ASCII / &:/ 
0002 000 000 eASCII <00><00> 
000 111 120 040 P.AAG: .ASCII /IP / 
000211 101 104 104 ASCII /ADD/ 
00021 122 105 123 ASCII /RES/ 
009217 123 000 000 eASCII /S/<00><00> 
000222 126 105 103 P.AAH: .ASCII /VEC/ 
000225 124 117 122 eASCII /TOR/ 
0002 000 000 eASCII <00><00> 
000232 102 122 040 P.AAI: .ASCII /BR / 
000235 114 105 126 eASCII /LEV/ 
000240 105 114 000 eASCII /EL/<00> 
000243 000 ASCII <00> 
000244 120 114 101 P.AAJ: .ASCII /PLA/ 
000247 124 124 105 eASCII /TTE/ 
000252 122 040 101 eASCII /R A/ 
000255 104 104 122 ASCII /DDR/ 
000260 105 123 123 ASCII. /ESS/ 
000263 050 105 123 ASCII? /(ES/ 
000266 051 000 ASCII « /)/<00> 
000270 125 123 105 P.AAK: .ASCII /USE/ 
000273 040 124 117 eASCII / TO/ 
000276 120 040 123 ASCII /P S/ 
000301 125 122 106 ASCII /URF/ 
000304 101 103 105 ASCII /ACE/ 
000307 040 106 117 ASCII / FO/ 
000312 122 040 123 eASCII /R S/ 
000315 111 116 107 ASCII /ING/ 
000320 114 105 040 eASCII /LE / 
000323 123 125 122 ASCII /SUR/ 
000326 106 101 103 eASCII /FAC/ 
000331 105 040 124 ASCII /E T/ 
000334 105 123 124 ASCII /EST/ 
000337 123 000 000 ASCII /S/<00><00> 
000342 104 117 040 P.AAL: .ASCII /DO / 
000345 131 117 125 eASCII /YOU/ 
000350 040 127 111 eASCIi / WI/ 
000353 123 110 040 ASCII /SH / 
000356 124 117 040 ASCII TO / 
00036 114 111 115 ASCII /LIM/ 
000 111 124 040 ASCII /IT / 
000367 101 122 105 ASCII /ARE/ 
000372 101 040 124 ASCII /A T/ 
000375 105 123 124 ASCII /EST/ 
000400 105 104 040 ASCII /ED / 
000403 111 116 040 ASCII /IN/ 
000406 124 105 123 ASCII /TES/ 
000411 124 123 040 eASCII /TS_/ 
000414 043 061 063 ASCII /#13/ 
000417 040 124 110 eASCII / TH/ 
000422 122 125 040 ASCII /RU/ 
000425 043 061 065 ASCII = /4#15/ 
000430 000 000 ASCII <00><00> 
000432 123 124 101 P.AAM: .ASCII /STA/ 
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SEQ 39 
ZRCFAI CZRCFAO RC25 FR_END TEST 8-Jul-1983 15:21:53 VAX-11 Bliss-16 V3-555 Page 19 
v01.0 GLOBAL TEXT SECTION B-Jul-1983 14:13:00 SPIDERSUSERS : CLAKSHMANA. 11REL.REALJZRCFA (12 
000435 122 124 111 eASCII = /RTI/ 
000440 116 107 040 eASCII /NG / 
000443 124 122 101 -ASCII = /TRA/ 
000446 103 113 000 eASCII /CK/<00> 
000451 000 eASCII <00> 
000452 105 116 104 P.AAN: .ASCII /END/ 
000455 111 116 107 eASCII = /ING/ 
000460 040 124 122 ASCII / TR/ 
000463 101 103 113 eASCII = /ACK/ 
000466 000 000 eASCII <00><00> 
000470 104 117 040 P.AAO: .ASCII /D0 / 
000473 131 117 125 eASCII = /YOU/ 
000476 040 127 101 eASCII / WA/ 
000501 116 124 040 eASCII = /NT / 
v005 124 117 040 ASCII /TO / 
000507 104 117 040 ASCII /DO / 
000512 124 110 105 eASCII = /THE/ 
000515 040 115 101 ASCII / MA/ 
000520 116 125 101 eASCII = /NUA/ 
000523 114 040 111 eASCII /L_I/ 
000526 116 124 105 eASCII = /NTE/ 
000531 122 126 105 eASCII /RVE/ 
000534 116 124 111 eASCII /NTI/ 
000537 117 116 040 eASCII /ON / 
000542 124 105 123 eASCII = /TES/ 
000545 124 077 000 eASCII /1?/<00> 
000550 104 117 040 P.AAP: .ASCII /DO / 
000553 131 117 125 eASCII = /YOU/ 
000556 040 116 105 eASCII / NE/ 
000561 105 104 040 eASCII /ED / 
000564 124 122 101 eASCII = /TRA/ 
000567 103 105 040 eASCII /CE / 
000572 115 117 104 eASCII = /MOD/ 
000575 105 077 000 eASCII § /E?/<00> 
000600 104 117 040 P.AAQ: .ASCII /DO / 
000603 131 117 125 eASCII = /YOU/ 
000606 040 127 111 ASCII / WI/ 
000611 123 110 040 eASCII /SH / 
000614 124 117 040 ASCII /TO / 
000617 103 117 116 eASCII /CON/ 
000622 124 111 116 eASCII = /TIN/ 
000625 125 105 040 eASCII /UE / 
000630 124 105 123 eASCII /TES/ 
000633 124 111 116 eASCII = /TIN/ 
000636 107 040 101 eASCII /G_A/ 
000641 106 124 105 eASCII = /FTE/ 
000644 122 040 122 eASCII = /R_R/ 
000647 105 124 122 eASCII = /ETR/ 
000652 111 105 123 eASCII = /iES/ 
000655 077 000 000 eASCII /?/<00><00> 
000660 116 125 115 P.AAR: .ASCII /NUM/ 
000663 102 105 122 eASCII /BER/ 
040 117 106 ASCII OF / 
71 040 122 105 eASCII /_RE/ 
674 124 122 111 eASCII = /TRI/ 
000677 105 123 040 ASCII /ES / 
000702 106 117 122 eASCII = /FOR/ 
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002133 104 101 124 eASCII = /DAT/ 

2136 101 040 124 ASCII /A_T/ 
002141 105 123 124 ASCII = /EST/ 
002144 040 101 000 eASCII / A/<00> 
002147 000 eASCII <00> 
002150 045 116 045 P.ABN: .ASCII /2N%/ 
002153 101 124 105 eASCII = /ATE/ 
002156 123 124 040 ASCII /ST / 
002161 061 062 040 ASCII /12 / 

21 102 125 123 eASCII /BUS/ 
002167 040 101 104 eASCII / AD/ 
002172 104 122 105 eASCII = /DRE/ 
002175 123 123 111 eASCII /SSI/ 

2200 116 107 057 eASCII = /NG/<57> 
002203 104 101 124 eASCII /DAT/ 

2206 101 040 124 eASCII /A_T/ 
002211 105 123 124 eASCII = /EST/ 
002214 040 102 000 -ASCII = / B/<00> 
002217 000 eASCII <00> 
002220 045 116 045 P.ABO: .ASCII /2N%/ 
002223 101 124 105 eASCII = /ATE/ 
002226 123 124 040 ASCII /ST / 
002231 061 063 040 ASCII /13 / 
0022 102 114 117 eASCII = /BL0/ 
002237 103 113 040 ASCII /CK / 
002242 124 122 101 eASCII = /TRA/ 
002245 116 123 106 eASCII = /NSF/ 
002250 105 122 040 eASCII /ER / 
002255 124 105 123 eASCII /TES/ 
002256 124 000 eASCII = /T/<00> 
002260 045 116 045 P.ABP: .ASCII /2N%/ 
002263 101 124 105 eASCII = /ATE/ 
002266 123 124 040 ASCII /ST / 
002271 061 064 040 ASCII /14 / 
002274 123 120 111 eASCII /SPI/ 
002277 116 040 125 eASCII /N U/ 
002302 120 040 110 eASCII /P H/ 

2305 105 101 104 eASCII = /EAD/ 
002310 040 114 117 ASCII / LO/ 
002313 101 104 040 eASCII /AD / 
002316 123 105 121 eASCII = /SEQ/ 
002321 125 105 116 eASCII = /UEN/ 

2324 103 105 000 eASCII /CE/<00> 
002327 000 eASCII <00> 
002330 045 116 045 P.ABQ: .ASCII /2N%/ 
002333 101 124 105 eASCII = /ATE/ 

2336 123 124 040 eASCII /ST / 
002341 061 065 040 eASCII /15 / 
002344 123 105 121 eASCII = /SEQ/ 
00234 125 105 116 eASCII = /UEN/ 
002352 124 111 101 eASCII = /TIA/ 
002355 114 040 123 ASCII /L_S/ 
002360 105 105 113 eASCII = /EEK/ 
002363 040 101 116 eASCII / AN/ 

2366 104 040 126 ASCII = /D V/ 
002371 105 122 111 eASCII = /ERI/ 
002374 106 131 000 eASCII = /FY/<00> 
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264 122 101 116 eASCII = /RAN/ 
002651 104 117 115 eASCII /DOM/ 
002654 040 123 105 ASCII / SE/ 
002657 105 113 040 ASCII /EK / 
002662 101 116 104 eASCII = /AND/ 
2665 040 126 105 eASCII / VE/ 
002670 122 111 106 eASCII = /RIF/ 
002673 131 000 000 eASCII = /Y¥/<00><00> 
002676 045 116 045 P.ABW: .ASCII /2N%/ 
002701 101 124 105 eASCII = /ATE/ 
2704 123 124 040 ASCII ST / 
002707 062 061 040 eASEZG /21 / 
002712 123 105 103 ASCII = /5EC/ 
002715 124 117 122 eASCIY = /TOR/ 
002720 040 101 103 eASCII = / AC/ 
02723 103 105 123 eASCiI = /CES/ 
002726 123 040 124 eASCLII /S T/ 
002731 105 123 124 eASSII = /EST/ 
002734 000 000 eASCII <00><00> 
002736 045 116 045 P.ABX: .ASCII /2N%/ 
002741 101 124 105 eASCiS = /ATE/ 
002744 123 124 040 eASCII /ST / 
002747 062 062 040 ASCII £22 / 
002752 103 117 116 ASCII = /COiN/ 
002755 124 122 117 eASCII = /TROs 
2760 114 114 105 eASCII = /LLE/ 
002763 122 040 120 eASCII /R P/ 
002766 122 117 103 eASCII §=/ROC/ 
002771 105 123 123 ASCII /ESS/ 
002774 111 116 107 eASCII = /ING/ 
2777 040 124 111 ASCII / TI/ 
3002 115 105 000 eASCII = /ME/<00> 
003005 000 eASCII <00> 
3006 045 116 045 P.ABY: .ASCII /2N%/ 
003011 101 124 105 eASCII = /ATE/ 
003014 123 124 040 ASCII /ST / 
003017 062 063 040 ASCII /23 / 
003022 117 116 105 eASCII = /ONE/ 
003025 040 124 122 eASCII / TR/ 
003030 101 103 113 eASCII = /ACK/ 
003033 040 123 105 eASCII / SE/ 
3036 105 113 040 eASCII /EK / 
003041 124 111 115 eASCII = /TIM/ 
003044 105 000 eASCII § /E/<00> 
3046 045 116 045 P.ABZ: .ASCII /2N%/ 
003051 101 124 105 eASCII = /ATE/ 
003054 123 124 040 eASCII /ST / 
003057 062 064 040 ASCII /24/ 
00 101 126 105 eASCII /AVE/ 
603065 122 101 107 eASCII = /RAG/ 
003070 105 040 123 eASCII /E_S/ 
003073 105 105 113 eASCII /EEK/ 
003076 040 124 111 ASCII TI/ 
003101 115 105 000 eASCII /ME’<00> 
003104 045 116 045 P.ACA: .ASCII /%N%/ 
003107 101 124 105 eASCII = /ATE/ 
003112 123 124 040 eASCIS =/ST / 
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5604 123 120 111 eASCII /SPI/ 
5607 18 955 104 eASCII = /N-D/ 
005612 11 ier 116 -ASCII = /OWN/ 
005615 040 106 101 eASCII / FA/ 
5620 114 114 125 eASCII =/ILU/ 
5623 122 105 000 eASCII /RE/<00> 
5626 123 120 111 P.ADO: .ASCII /SPI 
005631 116 040 125 eASCII /N U/ 
5634 120 040 124 ASCII /P T/ 
005637 105 123 124 eASCII /EST/ 
5642 040 106 101 eASCII / FA/ 
005645 111 114 125 eASCII = /ILU/ 
005650 122 105 000 eASCII /RE/<00> 
005653 000 eASCII <00> 
005654 123 105 121 P.ADP: .ASCII /SEQ/ 
005657 125 105 116 eASCII = /UEN/ 
005662 124 111 101 eASCII = /TIA/ 
005665 114 040 106 eASCII /L_F/ 
005670 117 122 127 eASCII = /ORW/ 
005673 101 122 104 eASCII = /ARD/ 
005676 040 123 105 eASCII / SE/ 
5701 105 113 040 eASCII /EK / 
005704 106 101 111 eASCII /FAI/ 
005707 114 125 122 eASCII = /LUR/ 
005712 105 000 eASCII /E/<00> 
005714 123 105 121 P.ADQ: .ASCII /SEQ/ 
005717 125 105 116 eASCII = /UEN/ 
005722 124 111 101 eASCII /TIA/ 
005725 114 040 122 ASCII /L R/ 
5730 105 126 105 eASCII = /EVE/ 
005733 122 123 105 eASCII = /RSE/ 
005736 040 123 105 eASCII / SE/ 
005741 105 113 040 ASCII /EK / 
005744 106 101 111 eASCII /FAI/ 
005747 114 125 122 eASCII = /LUR/ 
005752 105 000 eASCII /E/<00> 
005754 045 116 045 P.ADR: .ASCII /2N%/ 
005757 101 124 111 eASCII /ATI/ 
005762 115 105 040 eASCII /ME / 
005765 105 130 120 eASCII = /EXP/ 
5770 111 122 105 eASCII = /IRE/ 
005773 104 000 000 «ASCII /D/<00><00> 
005776 045 116 045 P.ADS: .ASCII /2N%/ 
006001 101 106 101 eASCII = /AFA/ 
006004 124 101 114 eASCII = /TAL/ 
006007 040 105 122 eASCII / ER/ 
006012 122 117 122 eASCII = /ROR/ 
006015 000 eASCII <00> 
006016 101 110 105 P.ADT: .ASCII /AHE/ 
006021 101 104 040 eASCII /AD / 
006024 101 040 117 eASCII /A_0/ 
006027 106 106 123 eASCII = /FFS/ 
006032 105 124 040 eASCII /ET / 
006035 126 101 114 eASCII = /VAL/ 
006040 125 105 040 eASCII /UE/ 
006043 075 040 045 eASCII = /=_%/ 
006046 117 063 000 eASCII §=/03/<00> 
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SEQ 58 
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006565 040 104 791 ASCII / DA/ 
006570 124 101 040 ASCII /TA / 
006573 124 \s¢ 101 ASCII /TRA/ 
006576 116 12 106 ASCII = /NSF/ 
006601 105 122 040 ASCII /ER / 
006604 106 101 111 eASCII = /FAI/ 
006607 114 105 104 eASCII /LED/ 
006612 000 C90 ASCII <00><00> 
006614 122 103 062 P.AED: .ASCII /RC2/ 
006617 065 040 123 ASCII /5 S/ 
006622 105 105 113 ASCII /EEK/ 
006625 040 106 101 ASCII / FA/ 
006630 111 114 125 eASCII /ILU/ 
006633 122 105 000 eASCII /RE/<00> 
006636 045 116 045 P.AEE: .ASCII /2N2Z/ 
006641 101 102 114 ASCII = /ABL/ 
006644 117 103 113 eASCII /OCK/ 
006647 040 114 105 eASCII / LE/ 
006652 116 107 124 eASCII = /NGT/ 
006655 110 040 075 ASCII /H =/ 

040 045 117 ASCII / 20/ 
006663 066 045 116 ASCII /6 

000 000 ASCII <00><00> 
006670 045 116 045 P.AEF: .ASCII /2N%/ 
006673 101 110 105 eASCII /AHE/ 
006676 101 104 040 ASCII /AD / 
006701 123 127 111 ASCII /SWI/ 
006704 124 103 110 ASCII /TCH/ 
006707 040 106 101 ASCII / FA/ 
006712 111 114 105 eASCII /ILE/ 
006715 104 000 000 ASCII /D/<00><00> 
006720 106 101 111 P.AEG: .ASCII /FAI/ 
006723 114 111 116 eASCII = /LIN/ 
006726 107 040 123 ASCII /G S/ 
006731 125 122 106 eASCII = /URF/ 
006734 101 103 105 ASCII /ACE/ 
006737 040 075 040 ASCII /=/ 
006742 045 117 063 ASCII /203/ 
006745 045 101 040 ASCII /2A / 
006750 124 122 101 eASCII /TRA/ 
006753 103 113 040 eASCII /CK / 
006756 043 040 075 ASCII] /# = 
006761 040 045 117 ASCII / %0/ 
006764 066 045 116 eASCII /62%N/ 
006767 000 ASCII <00> 
006770 122 105 101 P.AEH: .ASCII /REA/ 
006773 104 040 123 ASCII /D S/ 
006776 105 103 124 ASCII /ECT/ 
007001 117 122 040 ASCII /OR / 
007004 106 101 111 ASCII /FAI/ 
007007 114 105 104 ASCII ph 
007012 000 000 ASCII <00><00> 
007014 101 106 101 P.AEI: .ASCII /AFA/ 
007017 111 114 111 eASCII /ILI/ 
007022 116 107 040 ASCII /NG / 
007025 040 124 122 ASCII / TR/ 
007030 101 103 1:2 ASCII /ACK/ 
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SEQ 81 
ZRCFAI CZRCFAO RC2S FR END TEST B-Jul-1983 15:21:53 VAX-11 Bliss=-16 V3-555 Poge 61 
v01.0 GLOBAL TEXT SECTION 8-Jul-1983 14:13:00 SPIDERSUSERS: CLAKSHMANA. 11REL.REALIZRCFA (12 
016064 045 101 127 P.AHX: .ASCII /2AW/ 
016067 122 111 124 ASCII /RIT/ 
pene 105 040 120 ASCII /E P/ 
01607 122 117 124 eASCII /ROT/ 
016100 105 103 124 eASCII /ECT/ 
016103 105 104 045 ASCII /EDZ/ 
016106 116 000 ASCII /N/<00> 
016110 045 101 103 P.AHY: .ASCII /ZAC/ 
016113 117 115 120 ASCII /OMP/ 
016116 101 122 105 ASCII /ARE/ 
016121 040 105 122 ASCII / ER/ 
016124 122 117 122 ASCII /ROR/ 
016127 045 116 000 ASCII /%N/<00> 
016132 045 101 104 P.AHZ: .ASCII /ZAD/ 
016135 101 124 101 ASCII /ATA/ 
016140 040 105 122 ASCII / ER/ 
016143 122 117 122 ASCII /ROR/ 
016146 045 116 000 ASCII /%N/<00> 
016151 000 ASCII <00> 
016152 045 101 110 P.AIA: .ASCII /2ZAH/ 
016155 117 123 124 ASCII /OST/ 
016160 040 102 125 ASCII / BU/ 
016163 106 106 105 eASCII /FFE/ 
016166 122 040 101 eASCII /R A/ 
016171 103 103 105 ASCII /CCE/ 
016174 123 123 040 eASCII /SS / 
016177 105 122 122 ASCII /ERR/ 
016202 117 122 045 ASCII /OR%/ 
016205 116 000 000 ASCII /N/<00><00> 
016210 045 101 103 P.AIB: .ASCII /ZAC/ 
162 117 116 124 ASCII /ONT/ 
16216 122 117 114 eASCII /ROL/ 
016221 114 105 122 ASCII /LER/ 
016224 040 105 122 eASCII / ER/ 
016227 122 117 122 eASCII /ROR/ 
016232 045 116 000 ASCII /%N/<00> 
16235 000 ASCII] <00> ° 
6236 045 101 104 P.AIC: .ASCII /2ZAD/ 
016241 122 111 126 ASCII /RIV/ 
016244 105 040 105 ASCII /E E/ 
016247 122 122 117 eASCII /RRO/ 
016252 122 045 116 eASCTT = /REN/ 
016255 000 eAScaa <00> 
016256 045 101 115 P.AID: .ASCII /ZAM/ 
016261 105 123 123 eASCII /ESS/ 
016264 101 107 105 eASCII /AGE/ 
016267 040 106 122 ASCII / FR/ 
016272 117 115 040 ASCII /OM / 
016275 101 116 040 ASCII /AN / 
016300 111 116 124 ASCII /INT/ 
016303 105 122 116 ASCII /ERN/ 
016306 101 114 040 eASCII /AL / 
016311 104 111 101 ASCII /DIA/ 
016314 107 116 117 ASCII /GNO/ 
016317 123 124 111 eASCII /STI/ 
016322 103 045 116 ASCII = /C2EN/ 
016325 000 ASCII <00> 


a 


ZRCFAI CZRCFAO_RC25 FR END TEST 8-Jul-1983 15:21 
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SEQ 82 
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RCV.DATA.BUF : : 
CLK.ADR:: 

BLK 
CLK.TYPE:: 

BLK 
CLK.CSR:: : 
CLK.HERT2: : 


RECEIVE.RING: : 
SEND.RING?S 
REC.ENVELOPE : : 
SND. ENVELOPE : : 
-BLKW 
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BUF .DESCRPTR:: 


SECONDS: : 
WORD 
MINUTES: : 


wWw?}0 —33]3—-0 0 -—- — — 


So 
N 
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P6:: -BLKW 

RET.STATUS:: 
-BLKW 

CANCEL.TIMER:: 


LBN.SZ2::.BLKW 
FREE.MEM.ADDR: : 


-BLKW 
MEM.SIZE:: 
H.SADD: :.BLKW 
H.E :: BLKW 
BUF .LENGTH:: 
NUM.RETRIES: : 

~BLKW 


1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
1 
1 
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ZRCFAI CZRCFAO RC25 FR END TEST 8-Jul-1983 15:21: 
v01.0 GLOBAL TEXT SECTION 8-Jul-1983 14:13: 


005676 000000 RETRIES:: 
005700 000001 FAL.CODE:: 
005702 DMC.TEST:: 
005704 BYT.CNT:: 
005706 DM.REC::.BLK 


005710 DM.XMT:: 
005712 TEMP: : 


SEQ 84 
53 VAX-11 Bliss-16 V3-555 Poge 64 
00 SPIDERSUSERS: CLAKSHMANA.11REL.REALIZRCFA (12 
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LSDESC. L$DU, sigaye ts SAUTO, T1 
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ders 


SEQ 85 
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1 Page 65 
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Psect Name 
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SPLITS 


File 


CZRCFAO_RC25 FR END TEST 
GLOBAL TEXT SECTION 


MSG.17== 


Ss 
SMSCP. STRUCT== 


PSECT SUMMARY 
Words 
77 


1510 
3704 


LIBRARY STATISTICS 


Total 


Attributes 
RO, I 
RO, 
RO, 


Symbols 
Loaded 


e LCL. 
- GBL, 
- GBL, 


Percent 


BB 


=-Jul-198 
-Jul-198 


REL, 
REL, 
REL, 


983 1a: 


CON 
CON 
CON 


221:53 
:13:00 


Blocks 


Read 


VAX-11 Bliss-16 V3-555 
SPIDERSUSERS: CLAKSHMANA. 


_. 86 
11REL.REALIZRCPA (3 


ZRCFA1 CZRCFAO_RC25 FR_END TEST 
v01.0 GLOBAL TEXT SECTION 


SPIDERSUSERS : LLAKSHMANA. 1TREL..REALIJAZTECO.L16;1 


COMMAND QUALIFIERS 
BLISS /PDP11/LIST ZRCFAI. B16/EN:NOEIS 
0 code + 5291 data words 
; 00:29.7 
; Elapsed Time: 01:29.0 


; Memory Used: 274 pages 
; Compilation Complete 


VAX-11 Bliss-16 V3-555 
SPIDERSUSERS: CLAKSHMANA. 


coo o, 
TIREL. RemszRchA (1 3 





one os 
CZRCFAO RC25 FR END TEST : VAX=11 Bliss-16 V3-555 pees 
: SPIDERSUSERS: CLAKSHMANA. 11REL .REALIZRCFA a) 


MODULE ZRCFA2 ag | H> Pao RC25 FR END TEST’ 
ait EVEL = 0, 
ADDRESSING, MODE (RELATIVE) 


BEGIN 
i <BLF /LOWERCASE _KEY> 


library ‘AZTECO'; 
require “BLSMAC.REQ'; 


1 
i 
structure 


RC25 CO, P, S, EJ = ! DEFINE ACCESS ALGORITHM 
begin ! TO ALLOW FIELD REFERENCE 


local ! TO THE AZTEC 
RC_REG; 


RC_REG = .(RC25 + %upval*0)<0, %bpval, 0>; 
RC_REG 


SBE 


en 
<P, S, E>; 


psect 
code = AASCODE; 


ute io routine 
D_CLOCK : nova lue 6 
CLoc cK INIT : novalue, 
RC2SSERR. _RPT : novalue, 


AZ mt 
aeTSERU CALLOUT : novalue, 
INIT_ com AREA, 

NXMI~: LSISR nova alue, 

CLK K_INT_ SERV : LSISR novalue, 
SEI INT VECTOR : novalue, 


US, 
SET CNTLR_CHAR, 
VATLABLE; 


WWWININNVNNNNNNN 222 -- 
WHO VDDONOUSWN $C OONAUSWN Oo 


PUPP STS TT I OT 


w 


READ_CMD, 

READ FILL i. : moe, 
GET suulr STA 

RANDOM 3 


GET_CMD_ : 
GET ARES S SLOT : novalue, 


DM_ADDR SETUP : novalue, 
DATA_XMT_R 

WRT PROTECT. TST : novalue, 

AZTEC READY, 


ee ee eee ee ee ee ee ee ee a ee ee ee ee ee i ee ee ee ee ee ee ed ed ed ed ed ed ed ed eed 


MAMA VIUTU 





ae 


— 89 
CZRCFAO RC25 FR END TEST 8-Jul-19 : VAX-11 Bliss=-16 V3-555 page 2 
8-Jul-19 : SPIDERSUSERS: CLAKSHMANA. 11REL.REALIJZRCFA (1) 


DO_RETRIES : novalue, 
decode : novalue; 


external 
A 


: blockvector CREC ALLOCATE + SND_ALLOCATE + HDR_SIZ, 2, word], 
: Ey block (4, word] field (HDR_FIELD 
: ref blockvector CREC ALLOCATE, 2, word] field (osc FIELD). 
D RING : ry? blockvector CSND.ALLOCATE, 2. word] field (osc F 

REC ENVELOPE : blockvector CREC OALLOCATE, RB_SIZE + 2, word STeld” CENV.. FIELD), 
SND_ “ENVELOPE : blockvector [SND “ALLOCATE, SB, SIZE + 2, a field (ENV, FIELD), 
BUF-DESCRPTR : word volatile, T BUFFER DESCRIPTOR AREA 

BYTE COUNT : word volatile, i BYTE COUNT BUFFER 

CLK. AOR : word, iLOCATION TO gy" or ADDRESS 


CLK_TYPE : “word. 
i(Q=NO CLOCK, -1= L=CLOCK, 1=P-CLOCK) 
CLK_CSR_: word, ! STORE CSR ADDRESS. FOR CLOCK HERE 
CLOCK RATE 
STORE CLOCK START VALUE 
STORE NUMBERS OF CLOCK INT. OCCURED 


Boo 


: word volatile 
: word volatile, 
: word volatile, 
: word volatile, 
: word, 
: word volatile, 
: word volatile, 
: word volatile, 


. 
o 
. 
° 
* 
s 
. 
oe 
° 
o 
. 
° 
. 
o 
. 
° 
. 
° 
° 
° 
. 
° 
. 
e 
. 
° 
° 
° 
. 
o 
e 
6 
e 
e 
. 
° 
. 
e 
- 
° 
- 
e 
. 
° 
. 
° 
. 
° 
. 
e 
. 
@ 
. 
e 
° 
¢ 
. 
° 
° 
° 
” 
° 
. 
° 
. 
e 
. 
° 
. 
° 
= 
° 
° 
° 
oO 
e 
ca 
a 
Q 
° 
° 
° 
° 
e 
2 
e 
. 
° 
. 
e 
© 
e 
. 
° 
° 
° 
. 
o 
= 
a 
° 
. 
o 
3 
é 
2 
° 
- 
e 
. 
° 


B_! MASK : byte volatile, 


LBN : word volatile, 
: word volatile, 
word volatile, 
: word volatile, 
: word volatile, 
: word volatile, 


yte, 

: word volatile, 
! R : word volatile, 
RET_STATUS : word volatile, 
TEMP : word. volatile, 
FREE_MEM_ADDR, 
MEM_SIZE, 


EP i 
MASK FOR WITCH STEP TO DO 
IN AZTEC_INIT. 

ICAL BLOCK NUMBER BUFFER 
START LOGICAL BLOCK NUMBER 
ENDING LOGICAL BLOCK NUMBER 
COMMAND REFERE 
RECEIVING RING SLOT 
SENDING RING SLOT 
INIT INTERRUPT VECTOR 
INTERRUPT VECTO 
UNIT NUMBER 
RETURN STATUS 


STARING FREE MEMORY ADDRESS 
FREE MEMORY SIZE 





mM 7 


SEQ 90 
ZRCFA2 CZRCFAO RC25 FR END TEST 223: VAX=-11 Bliss=16 V3=555 page 3 
v01.0 8-Jul- 244: SPIDERSUSERS: CLAKSHMANA.11REL.REALIJZRCFA (1) 


COOAaonnw 
SSSSSS 


3 


Sa oe 
MANO_SW, 
SurtChe. 

SuP CONTINUE. 


MTSA, 
QsTi5, 


ee ed ee ed ed ad ed ed ed 
SUONOUSWN Oo 


Mronrr 
QOutwn— 


AM_N 
CANCEL 
RETRI 


TIMER : word volatile, 
es, 


— eee ee ee ee ee ee ee ee ce ee ce ee ce ed ed ed eed ee ed eed eed eed dd 


Byes 


FAL_CODE, 
MSG_STATUS_ERR, - 
END_LBN : word volatile, 
P_MASK : byte volatile, 
RET_UNIT_FLAG : word, 
P1 = word volatile, 

: word volatile, 

: word volatile, 

: word volatile, 

: word volatile, 

: word volatile, 


AAADRAAACO 
wy 


LSS SSS SSS 5s 
WONAULSWN 0 VOVWOAUEWN oO OON 


ee eee ee ee ee ee me ee me ee ee ee ee ed ed ed ed ed ed od td od = 


AXAAADAAAORAO 
MAMMA IU 


QST1T, 
RC25_ADDR : ref RC25 field (RC_REG), 





N 7 


CZRCFAO RC25 FR END TEST 8-Jul-19 


SEQ 91 
83 1 VAX-11 Bliss-16 V3-555 
8-Jul-1983 1 


Page 4 
SPIDERSUSERS : CLAKSHMANA. 1 1REL .REALJZRC A (1) 


° 


7} 
35), 


RROD 
W=o 


RCV“DATA_BUF : 
UNIT : word, 
LOG_UNIT : word; 


Baga: 


et ek ek ad od dd 
owuoon 


o 
~“ 





a3 
oe 


ae 92 
MISCELLANEOUS SECTIONS : VAX-11 Bliss=-16 V3-555 page 5 
: SPIDERSUSERS: CLAKSHMANA.11REL.REALIZRCFA (2) 


Ztitle "MISCELLANEOUS SECTIONS® 
Zsbttl ‘TYPE AND DESCRIP ON 
NAMES OF DEVICES S D BY PROGRAM 
bévive (%ascizAZTEC RC2 PrATTER’)s 
TEST PTION 
béscripr (Zasciz"RC25 FRONT END/HOST DIAGNOSTIC’) ;%¢ 


: "THEW HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 

‘ THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
3 MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BU E 
3 INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
; MACROS ALLOW M3 SUPERVISOR TO ESTABLISH COMMUNICATIONS 
; WITH THE OPERATOR. 


AAAOAOAQOOOO 
2 Ss OS SO SS 


BGNHRD; 
GPRMA (QST1, %o' ‘0°. 0, %o° *; ; !IP ADDRESS? 


‘BR LEVEL 
!UNIT NUMBER(S) 


SESEGFERSS 


o 
8 


oa 
Oo 
= 





¢ 8 


a 93 
MISCELLANEOUS SECTIONS 8-Jul-1983 15:23: 7) VAX-11 Bliss=16 V3-555 poge 6 
SOFTWARE PARAMETER CODING SECTION B-Jul-19835 14:44:20 SPIDERSUSERS: CLAKSHMANA. 11REL .REALIJZRCFA (3) 


ae "SOFTWARE PARAMETER CODING SECTION’ 


~ 
»@ 
-- 
_™" 
oF 


D P- THE 
; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. 

MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
; WITH THE OPERATOR. 


AAAAAOOOO 
oe st — 


BGNSFT 
IGPRML (QST6, %0"O", %0°177777", YES, 1); 1USE TOP SURFACE FOR SINGLE SURFACE TESTS? 
IGPRML (QST7. %o0'2". %0°177777", YES, 1): iDO YOU WISH TO LIMIT THE AREA TESTED 
‘IN TESTS #13 = #15? 
'XFERF (MANINT) ; SKIP NEXT TWO QUESTIONS 
IGPRMD (QSTB, %0'4', D, %0'1777", %0'0', tdecinai: 1800". VES. 1):!STARTING TRACK? 
1 GPRMD (QST9, %0'6'. D. %0'1777", %0'0", Zdec imal "800", 1)° 'ENDING TRACK? 
(MANINT) : (LABEL LTH BS "QUESTION 
GPRD (QST11, %0'10", D 40°1777", %0'0", Xo" 177", YES, 1); | !NUMBER OF RETRIES FOR TEST 
GPRML (QS$10_3, %o0'1 ae YES, 1): 'DO YOU WISH TO CONTINUE TESTING? 
'GPRML aS 0" 40°14". 1. YES. 1): iDO YOU WANT TO DO THE MANUAL 
tINTERVENSION TEST? 


EAR 


_ 
NAAN 
SsS 
con 


a 2 
QUslwn—o 


N 


GPRML_(QS10_1, %0°16", 1, YES, 1); !D0 YOU NEED TRACE MODE? 
ENDSFT; 








SEQ 94 
MISCELLANEOUS SECTIONS 8-Jul-1983 15:23:25 VAX-11 Bliss=-16 V3-555 Pa 7 
REPORT CODING SECTION Sa juta1983 12344390 SP IDERSUSERS: LLAKSHMANA. 1 1REL.REALJZRCFA (4) 


Rsbetl "REPORT CODING SECTION® 


i THE REPORT CODING SECTION CONTAINS THE 
| “PRINTS CALLS THAT GENERATE STATISTICAL REPORTS. 


NMMNN—— 


BGNRPT ; 
PRINTF (DBM2); !*REPORT’ 
return; 
ENDRPT; 


ed ed td od od 
Ainininininte tot 
MEWN—OOen 


Se Ge Ge Ge Ge Ge Ge Ge Ge 


ZRCFA2 MISCELLANEOUS SECTIONS 
/v01.0/ 


AASCODE, RO 
LSDVTYP:: 


WG 


A 
LSDESC:: 
A 


10 
10 
040 
10 
10 
000 
10 
04 
11 
04 


—~— 
NR 
onNoOWOUNM 


R 
—N-—ON 


— on 
-~—— © 


/TIC/ 
<00><00> 
SPR RL 


S 


LSHRDLN:: 
GP$1:: 


GP$2:: 


bh 


USKRVSSRVSERVSAA 


GP$3:: 


SSSeSeseeessess 


LSNDHRD: : 





— 95 
8-Jul=1983 173 23:25 VAX-11 Bliss=-16 V3-555 


ZRCFA2 MISCELLANEOUS SECT Page 8 
v01.0 EC B-Jul-1983 14:44:20 SPIDERSUSERS: CLAKSHMANA.11REL.REALIJZRCFA (4) 


I 
REPORT CODING SECTI 


LSSFTLN:: 
a T=LSSFTLN>/2>-1> 
405 


R, avIE. COUNT 
YPE, CLK CSR, CLK.HERTZ 
NUTES 


KS, SE 

TA1, DATA2, DATA3, DATA4 
B.MASK, pon, (BN.ST, LBN.ED, CMD.REF 
RES.SLOT, CMD.SLOT, VEC.AD, RET.STATUS 
MP, FREE. NEM. i 
RINGBASE, DRIVE., DBM1 Bre DBM3 


BMS, DBM6, DBM33, 
DBM35, ERR.O1, ERR. 02, intsc FRU 
FMT2, FMT3, DMC.TEST, BYT.CNT 


.XMT, DM. H. -EADD 
BUF .LENGTH, MANU.SW, SWITCH2, TIP 
SWP. CONTINUE FMTSA, 

HWP. TABLE, RT.TABLE. RT. 
CANCEL. ath *RETRIES 
NUM.RETRIES, SWP. TRACE 


*AM.NEX 
SP. RETRIES 
LSUNIT 
MECHAN, MSG.PWR, MSG.14, CTO.ERR 
PFE.ERR, FAL.CODE, MSG.STATUS.ERR 
END.LBN, P.MASK, RET-UNIT.FLAG 
P1, P2, P3, P4, P5, P6, QST1, ast 
ast3 ast4 asié. 1083? sts, 


710, a $76.1 ast Rees. ADDR 
tan ATA. Engce aTRU ef T 
RC. STRUCTURE, SDUP. UrRUCT. SMSCP. trRucT 
XNT.DATA.BUF. RCV.DATA.BUF, UNIT 


LSHRDLNt2 
LSSFTLN¢2 


LRPT REPORT CODING SECTION 
0000006 : #DBM2,-(SP) 
000001 MOV #1,-(SP) 


17 





F 8 


SEQ 96 
ZRCFA2 MISCELLANEOUS SECTIONS 8-Jul-1983 15: VAX-11 Bliss=16 V3-555 Page 9 
v01.0 REPORT CODING SECTION 8-Jul-1983 14: SPIDERSUSERS : CLAKSHMANA. 11REL.REALIJZRCFA (4) 


000014 022626 cMP (SP)+,(SP)+ 3 1716 
000016 000207 RTS PC 


: Routine Size: 8 words, Routine Base: AASCODE + 0166 
3; Maximum stack depth per invocation: 4 words 


-SBTTL LSRPT REPORT CODING SECTION 
004767 177754 LSRPT:: JSR PC,LRPT 
104425 TRAP 


RTS PC 


z Routine Size: 4 words, Routine Base: AASCODE + 0206 
: Maximum stack depth per invocation: 2 words 


000000 
000004 
000006 





SEQ 97 
MISCELLANEOUS SECTIONS 8-Jul-1983 15:23: VAX-11 Bliss=16 V3-555 pope 10 
INITIALIZE SECTION B-Jul-1983 14:44: SPIDERSUSERS : CLAKSHMANA. 11REL.REALIJZRCFA (5) 


Rsbetl "INITIALIZE SECTION’ 


i THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
. AT THE BEGINNING OF EACH PASS. 


BGNINIT; 


local 
DELAY_MULT; 'CONTAINS DELAY FACTOR 


SETPRI (PRIOO); !PRIORITY 0 
if READEF (EF _PWR) 'ARE WE HERE BECAUSE OF POWER FAIL? 
en 


rr 


NNN NNN 


WANA 
Wwr—O0oo 


DIRE 


= 


QOUMMUNUVIVIVIVIVIE BERBER LW 
WR $0 VONOAUEWN OC OONOUSWN-Oo Oo 


pease 
PRINTF (MSG_PWR); '*"POWER DELAY = WAITING’ 
incru mab from 0 to 60 do ! WAIT APPROX. 60 SECONDS 


n 
DECAY MULT = 10000; 
DELAY” (.DELAY_MULT); 
BREAK; ! BREAK FOR ACT 
eng; 


DOCLN; 
end; 


MAKE SURE NOT MORE THAN 16 UNITS (PLATTERS) HAVE BEEN SPECIFIED. 
IF THERE ARE TOO MANY, NOTIFY USER AND RETURN TO SUPERVISOR. 


if .LSUNIT gequ 16 
then 'MORE THAN 16 UNITS? 


‘ERROR = TOO MANY UNITS 
‘RETURN TO SUPERVISOR AND CLEAN UP 


NNN NSS SINR ANA AAAAAAS 


begin 
PRINTF (ERR_01); 
DOCLN; 
end; 
if READEF (EF_CONTINUE) then return; ‘IF CONTINUE GETS YOU HERE SKIP INIT. 
7 READEF (EF_START) or READEF (EF_RESTART) or READEF (EF _NEW) 
en 


NN 
SOR 


eee ee me ee me ee ee ee me ee ee ee ee ee ee ce ee ee ee a ce a cee ed ee ed ee ee ee ed a ed ed ed ed ed ed ed ed 
a ) 
cs 
N 


n 
LOG_UNIT = =1; 
NUM-RETRIES = ZERO; 
RETRIES = FALSE; 
FIND_CLOCK (); 


if CLK_TYPE eqlu NO_CLOCK ! IF THERE IS NO CLOCK 
then ! IN THE SYSTEM TELL THE 
! OPERATOR 


4 

PRINTF (ERR_02); 
DOCLN; 
end 

lse 
eCLK_CSR = ZERO; ' STOP THE CLOCK 








SEQ 98 
1g VAX=-11 Bliss-16 V3-555 


P. 11 
8-Jul-19 SPIDERSUSERS : CLAKSHMANA. 11REL.REALIZRCPA (5) 


SRS 


DETERMINE THE FREE MEMORY STARTING ADDRESS AND IT SIZE 


MEMORY (FREE _MEM ADDR) ; 'FIND THE STARTING ADDR 
MEM_SIZE = ..FREE_MEM_ ADDR; !DETERMINE THE SIZE 


SNS 
SNe 


oo 
oO 


end; 


'OTHERWISE, INCREMENT - UNIT 
- in ‘AND CHECK FOR HIGH LIMIT. 
UNIT = .LOG_UNIT + 1; 


if .LOG_UNIT gequ .LSUNIT then DOCLN; ‘IF SO QUIT INIT AND DO CLEANUP. 


end 
until (GPHARD (.LOG_UNIT, HWP_TABLE)) neqa 0; !GET HARDWARE P_TABLE POINTER 


RT_TABLE = RT (0); A ra RT_TABLE WITH THE 
RT_TABLE RY Tera DR Sap 8 'HARDWARE P_TABLE INFO. 
Vv oH 


E i; 
T 1) = .HWP_TABLE CHWP_URIT-NUMBERJ; —!PLATTER # 
Fi TABLE pfkt we ADDRESS): ‘IP ADDRESS FOR THE CONTROLLER 
it: .RT TABLE CRT i UNDER TEST 
SETVEC (. ar. TABLE CRT UVECTORS NXMI, PRIO7): 
PRINTF (DBMT, .LOG_UNIT, .RC25_ADDR, .UNIT); | !GIVE THIS INFO TO OPERATOR. 


ENDINIT; 


pe etatanans arta 


Go c000 
paar Saar try 
N-o 


-GLOBL LSDLY 


-SBTTL LINIT INITIALIZE SECTION 
JSR R1,$SAVE3 

=(§ 

41 

#34,R0 

47 


6$ 

#MSG.PWR,-(SP) 

#1,-(SP) 

SP,RO ° SP,* 
17 


mn 


R2 OUNT 

#23420,R3 ; *,DELAY.MULT 
R3,R1 ; DELAY.MULT,SSTMP2 
: *,SSTMP1 


RS=2G 


; SSTMP 
; SSTMP1 
; SSTMP2 








o 


REFENSRSSSKRVSSN 


TELWWNwww22OoOO 
SSFSSELSSEES 


ee Be ed ed ee 


000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000174 
0002 


MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 


00 000040 


000037 

000035 

177777 0000006 
0000006 ” 


0000006 
000000V 
0000006 


746 0000006 


000001 


77 0000006 


0000006 
0000006 


7 0000006 
0000006 0000006 


0000006 
0000006 
000000G 0000006 
0000006 


0000006 
000002 000002 
000004 000004 


8-Jul-1983 15 
B-Jul-1983 14 


38 

2 

R2 

R274 

1$ 

44 

(SP)+, (SP)+ 
SUNIT,#20 

#ERR.O1 

#1,-(SP) 
SP;RO 


-(SP) 


<$P) (SP) 
+ + 
#36,RO 

47 


9$ 
#ERR.02,-(SP) 


#1,-(SP) 
»RO 
44 

(SP)+, (SP)+ 
aclk.CSR 


RO, FREE.MEM.ADDR 
(RO) ,MEM. SIZE 


LOG.UNIT 
LOG.UNIT,LSUNIT 
12$ 

44 

L96-UNIT RO 


RO, HWP. TABLE 


#RT,RT. TABLE 
(ROS ,RT 
#RT_R 


SEQ 99 
VAX-11 Bliss-16 V3-555 page 12 
SPIDERSUSERS : CLAKSHMANA.11REL.REALIJZRCFA (5) 


3 COUNT 
3 COUNT,* 


3 FREE.MEM.ADDR,* 


+ HWP. TABLE,* 








ZRCFA2 MISCELLANEOUS SECTIONS 
v01.0 INITIALIZE SECTION 


000020 
13$: 


3; Routine Size: 152 words, Routine Base: 


: Maximum stack depth per invocation: 15 words 


J 8 


88-Jul-19 
8-Jul-19 


6(RO) ,6(R1) 
(RO) ,RC25.ADDR 


#NXMI, 
2(RO) ,=(SP) 
#3,-(SP) 


AASCODE + 0216 


-SBTTL LSINIT salad SECTION 


177314 LSINIT::JSR PC,LINI 
TRAP 11 


; Routine Size: 4 words, Routine Base: 


: Maximum stack depth per invocation: 2 words 


RTS PC 
AASCODE + 0676 


SEQ 100 
VAX-11 Bliss=-16 V3-555 Page 13 
SPIDERSUSERS: CLAKSHMANA. 11REL.REALIJZRCFA (5) 


3 1806 
; RT, 1807 
: RT,* 1808 

1809 








— b+ 
ZRCFA2 MISCELLANEOUS SECTIONS B-Jul-1983 15:23:25 VAX-11 Bliss=-16 V3-555 Pope | 
v01.0 AUTODROP SECTION B-Jul-1983 14:44:20 SPIDERSUSERS: CLAKSHMANA. 11REL .REALIJZRCFA (6) 
3 Lb a Rsbetl *AUTODROP SECTION’ 
: 1815 * THIS » LODE, 1s EXECUTED i WL AFTER THE INITIALIZE CODE IF 
3 1816 ! THE ° LAG WAS SET. THE UNIT(S) UNDER TEST ARE CHECKED TO 
; 1817 : SEE Aad THEY’ WILL RESPOND. THOSE THAT UOON® T ARE IMMEDIATELY 
$ a DROPPED FROM TESTING. 
; 1820 ®GNAUTO;: 
F 1821 !if .SWP_TRACE then PRINTF (DBM3); 
: 1822 return; 
; 1823 END H 
-SBTTL LAUTO AUTODROP SECTION 
000000 000207 LAUTO: RTS PC 3 1812 
: Routine Size: 1 word, Routine poses AASCODE + 0706 
: Maximum stack depth per invocation: 0 words 
-SBTTL LSAUTO AUTODROP SECTION 
000000 004767 177772 LSAUTO::JSR PC,LAUTO 5 1822 : 
000004 104461 TRAP 61 
000006 000207 RTS PC 
: Routine Size: 4 words, Routine goes! AASCODE + 0710 


+ Maximum stack depth per invocation: 2 words 


~ 
Zz 
-o- 
_™" 
og 


Retepectetet tite 


000000 
Mmrr 


wwy 


Gececncncececnen secs 
N—OOOnN 


eee ee ee ee ee ed ed ed ed ed ed ed od 


REF 


; Routine Size: 
: Maximum stack 


000000 004767 


000004 104412 
000006 000207 


; Routine Size: 
: Maximum stack 


L 8 


MISCELLANEOUS SECTIONS 8-Jul-1 
CLEANUP CODING SECTION 8-Jul-1 


Rsbetl "CLEANUP CODING SECTION" 


i THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
: AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 


BGNCLN; 
'if .SWP_TRACE then PRINTF (DBM4); 
CSR = ZERO; ! TURN OFF THE CLOCK 
= ZERO; ! CLEAR ERROR ROUTINE 
! PARAMETERS P1 = P6 


P6 = ZERO; 
RET_STATUS = ZERO; ' CLEAR STATUS AND 
NUM_RETRIES = ZERO; ! FLAGS 

RETRIES = FALSE; 

return; 

ENDCLN; 


LCLEAN CLEANUP CODING SECTION 
acLk.CSR 


P6 
Ap LL 


NUM.RETRIES 
aes 


21 words, Routine Base: AASCODE + 0720 
depth per invocation: 0 words 


LSCLEAN CLEANUP CODING SECTION 
PC,LCLEAN 

12 

PC 


4 words, | Routine Base: AASCODE + 0772 
depth per invocation: 2 words 


177722 


VAX-11 Bliss=-16 V3-555 
SPIDERSUSERS : CLAKSHMANA. 


SEQ 102 
page 15 
TIREL.REALIZRCFA (7) 








mn 8 
ZRCFA2 MISCELLANEOUS SECTIONS 8-Jul-1983 1 VAX-11 Bliss=-16 V3-555 


— 7 


v01.0 DROP UNIT SECTION 8-Jul-1983 1 SPIDERSUSERS: CLAKSHMANA.11REL. REALIZRCEA (2 (B) 
Rsbeetl *DROP UNIT SECTION’ 


THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
i TO NO LONGER BE TESTED. 


BeNDU: 
‘if .SWP_TRACE then PRINTF (DBMS); 
return; 
ENDDU; 


SRVeeeeee 
—“SODONOUSWw 


-SBTTL LDU DROP UNIT SECTION 
000000 000207 LDU: RTS PC 


3; Routine Size: 1 word, Routine Sones AASCODE + 1002 
3; Maximum stack depth per invocation: 0 words 


-SBTTL LS$DU DROP UNIT SECTION 
000000 004767 177772 L$pU:: JSR PC,LDU 

000004 104453 TRAP 

000006 000207 RTS PC 


: Routine Size: 4 words, Routine Base: AASCODE + 1004 
+ Maximum stack depth per invocation: 2 words 





ek at ds 
0 C9 Co Co C0 CO C9 Co 
MVIMMUIVIVIV 
—SOONAUE WI 


RS 


000000 000207 


3: Routine Size: 
: Maximum stack 


000000 004767 
000004 104452 
000006 000207 


; Routine Size: 
3; Maximum stack 


1862 


pb en rg SECTIONS 
ADD UNIT SECTION 


Rsbeetl ‘ADD UNIT SECTION 
"THE ADD-UNIT SECTION CONTAINS 


Nn 8 
8-Jul-19. 


SEQ 104 
VAX=11 Bliss=-16 V3-555 


83 1 : Page 17 
8-Jul-1983 1 : SPIDERSUSERS: CLAKSHMANA. 11REL.REALIJZRCFA (9) 


ANY CODE THE PROGRAMMER WISHES 


i TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 


: TO THE TEST CYCLE. 


return; 
E 


LAU: 


1 word, Rout ine pore 
depth per invocation: 0 words 


177772 


4 words, Routine Base: 
depth per invocation: 2 words 


! <BLF /PAGE> 


BGNAU; 
‘if .SWP_TRACE then PRINTF (DBM6); 


-SBTTL LAU ADD UNIT SECTION 
RTS PC 


AASCODE + 1014 


fi LSAU ADD UNIT SECTION 
TRAP 


AASCODE + 1016 








SEQ 105 
RICE Ee SECTIONS 8-Jul-1983 15:23:25 VAX=-11 Bliss-16 V3-555 P 18 
ADD UNIT SECTION Sajuta1983 1 14:44: :50 SPIDERSUSERS: CLAKSHMANA.11REL. REALIZRCHA (10 


psect 
code = ABSCODE; 


1+¢ 
' GLOBAL LOCATION "I _AM_NEX’’ IS SET TO TRUE WHICH INDICATES 
it THE INITIALIZATION SEQUENCE INTERRUPT OCCURED. 


BGNSRY CNXMI) § 
AM_NEX = %0°177777"; 
CANCEL = TIMER = %0'177777': 


-SBTTL NXMI_ADD UNIT SECTION 
»PSECT ABSCODE, RO 


177777 000000G NXMI:: MOV #-1,1.AM.NEX 
177777 0000006 MOV #-1, CANCEL. TIMER 
000014 000002 RTI 


3: Routine Size: 7 words, Routine Doses ABSCODE + 0000 
: Maximum stack depth per invocation: 0 words 


1875 
1876 !++ 
it THE CLOCK INTERRUPT SERVICE ROUTINE IS ENTERED AT THE CLOCK RATE 


Cococo 
IN 
con 


sesseetsataeheveeeess 


BGNSRV (CLK_INT gSERV): 
TICKS = .TICKS # ! INCREMENT THE NUMBER OF TICK 


if .TICKS eqlu it et ' IF TOTAL NUMBER OF TICK = 60 
then ' THEN 
bogie 
TICKS = 0; ' RESET TICK TO ZERO 
SECONDS = .SECONDS + 1; ' INCREMENT THEN SECOND 
if .SECONDS eqlu 60 ' IF SECOND = 60 
then ' THEN 


0; ! RESET SECOND TO ZERO 
eMINUTES + 1; ! INCREMENT THE MINUTES 


ee ek ek ed ed ed ed od od nd = od ot I I 


ENDSRV; 


-SBTTL CLK.INT.SERV ADD UNIT SECTION 
005267 0000006 GK. we eee 


TICKS 
orere? 0000006 0000006 MP TICKS, CLK.HERTZ 
005067 000000G TICKS 








005267 
026727 

32 001004 
000034 005067 
005267 
000002 


3; Routine Size: 


MISCELLANEOUS SECTIONS 
ADD UNIT SECTION 


0000006 
0000006 000074 


0000006 
0000006 
1$: 
19 words, Routine panes 


: Maximum stack depth. per “invocation: 0 words 


c 9 


8-Jul-1983 15: 
8-Jul-1983 14: 
SECONDS 
SECONDS ,#74 


1$ 
SECONDS 
MINUTES 


ABSCODE + 0016 


a 1 
VAX-11 Bliss-16 V3-555 Pome i 
SPIDERSUSERS: CLAKSHMANA. 11REL..REALIZRCFA do 


s 
—_. 





. 9 


MISCELLANEOUS SECTIONS 8-Jul-1983 15: 
FIND CLOCK ROUTINE 8-Jul-1985 14: 


Z%sbttl "FIND CLOCK ROUTINE’ 

yom routine FIND CLOCK : novalue = 

ee 1s I a SURE THERE IS A CLOCK ON THE SYSTEM. IF NO_CLOCK, ABORT TO 
sOTHERWISE, DETERMINE WHETHER CLOCK IS AN L OR P CLOCK, GET ITS PARAMETERS. 


SEQ 107 
VAX-11 Bliss=-16 V3-555 


23: Page 
: SPIDERSUSERS: CLAKSHMANA. 11REL.REALIJZRCFA (11 


~ 
xz 
-o 
_™" 
oz 


seisiatte 


35 


pog*e 

CLK_TYPE = NO_CLOCK; 'SET FLAG FOR NO CLOCK 
if CLOCK (P, CLK_ADR) 'IS THERE A P_CLOCK? 
then 


‘SET THE FLAGE FOR P_CLOCK 
‘SAVE THE CSR ADDRESS 

'GET THE CLOCK RATE 

'SAVE THE STARTTING CLOCK VALUE 


!1S THERE AN L_CLOCK? 


n 
= L_CLOCK; 'SET THE FLAG FOR L_CLOCK 
“CSR = ..CLK_ADR; 'SAVE THE CSR ADDRESS 
ERTZ = .(.CL 3 'GET THE CLOCK RATE 

= %0'100"; 'SAVE THE STARTING CLOCK VALUE 


WOOODODDODOOODOOODODODOOON0N0NO 


WINS PONOND NONIPINDNYD 2 2 2 
=DOOONA USWA) “OC VdONOULSWN—O 


end; 


ee ee ce cee ce eee ce ee cee ce ee ee ee ee eed ee ee ee ed eed eed ed eed 


oo 
WwW 


'IF CLOCK WAS FOUND THEN 


aa 


-(.CLK_ADR + 4); 'GET CLOCK VECTOR ADDRESS 
-VEC_AD; CLK_INT_SERV, PRIOS); !SET VECTOR & SERVICE ADDR. 


a a od 
0000000 


Ww 


-SBTTL FIND.CLOCK FIND CLOCK ROUTINE 
0000006 FIND.CLOCK:: 
CLR CLK. TYPE 


000120 MOV #120,R0 
TRAP = 62 


— 
So 


1$ 
0000006 V RO,CLK.ADR ; RO,* 
000001 0000006 #1, CLK. TYPE ; 

0G MOV ; CLK.ADR,* 


oooo0o 6 
3 = 
™~ 


000006 0000006 

000105 0000006 

C00114 : MOV #114,R0 
62 


ae 
SS 
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ISCELLANEOUS SECTIONS grout=13 : VAX-11 Bliss-16 V3-555 
IND CLOCK ROUTINE 


SEQ 108 


Poge 21 
~Jul-19 8 SPIDERSUSERS: CLAKSHMANA. 11REL.REALIJZRCFA (11 


2$ 
RO,CLK.ADR ; RO,* 
#1 ; 
; CLK.ADR,* 


#CLK. INT. SERV,=(SP) 
=(SP 
VEC.AD, (SP) 
#3,-(SP) 
#10,SP 
3$: PC 
3; Routine Size: 58 words, Routine Base: ABSCODE + 0064 
3; Maximum stack depth per invocation: 6 words 


1940 





SSgSSLEAEEHELE 


fwno 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


5067 
016777 
000207 


3: Routine Size: 


F 9 


MISCELLANEOUS SECTIONS gosto 88S 12: 
CLOCK INIT ROUTINE =Jul-19 


Zsbttl ‘CLOCK INIT ROUTINE’ 
me routine CLOCK_INIT : novalue = 
HINIT CLOCK 


MINUTES = 0; 
'START Ly CLOCK 
CSR = .CLK_START; 
ends 


-SBTTL CLOCK.INIT CLOCK INIT ROUTINE 
0000006 CLOCK. INIT:: 
CLR TICKS 


0000006 CLR SECONDS 
0000006 CLR MINUTES 
0000006 0000006 are a Sane 


10 words, Routine Base: ABSCODE + 0250 


: Maximum stack depth per invocation: 0 words 


1955 


VAX-11 Blis 
SPIDERSUSER 


$-16 V3-555 
S: CLAKSHMANA. 


sea 1 
11REL-REALIZRCPA 


a 





6 9 


aise ao SECTIONS gout woes 1a 223: 
RC25 CONTROLLER ERROR REPORTING ~Jul-1983 1 


Z%sbttl "RC25 CONTROLLER ERROR REPORTING’ 
BGNMSG (RC2SSERR_RPT); 


Ri. 110 
725 VAX-11 Bliss~-16 V3-555 page ¢ 23 
4:44:20 SP IDERSUSERS: CLAKSHMANA.1T1REL. REALIZRCFA (13 


-SBTTL RC25SERR.RPT RC25 CONTROLLER ERROR REPORTING 
000000V RC2SSERR.RPT:: 

JSR ns : 

RTS PC 


3; Routine Size: 4 words, Routine pe ABSCODE + 0274 
3 Maximum stack depth per invocation: 2 words 


00 
vn 
<0 00 


1 +4 
i FUNCTIONAL DESCRIPTION: 
THIS ROUTINE IS CALLED BY THE DIAGNOSTIC SUPERVISOR VIA 
THE “'PRLINK’’ ARGUMENT SPECIFIED IN THE $DS_ERRXXX MACRO 
TO REPORT DETAILED RC 25 CONTROLLER ERRORS. 
i FORMAL PARAMETERS: 
POINTER TO FORMATED ERROR MESSAGE. 
FIELD REPLACEABLE UNIT CALL-OUT MASK. 
RC 25 CONTROLLER REGISTER PRINT-OUT MASK. 


DATA. 
DA 


SEESETERES 


S 
—) 


— 
oO 
N 
—_ 


ee 
S$ssees 
SsaNounun 


' IMPLICIT INPUTS: 

RET_STATUS 

‘ IMPLICIT OUTPUTS: 
i - NONE - 

i COMPLETION CODES: 
- NONE - 

i SIDE EFFECTS: 

= NONE - 


Oo 
Sssesessess 
OONOUE WN — 


' PRINT SUPPLEMENTAL ERROR INFO 


be a 4 Ss 2 I IS 


S 
wnN=— 


ROR MESSAGE POINTER 


if -P1 nega 0 ee | 0 
then i | 0, THEN PRINT-OUT 


begin 
if .P_LMASK eqlu 3 then PRINTB (.P1, .P4, .P5, .P6); ! SUPPLEMENTAL ERROR INFO. 
if .P_MASK eqlu 2 then PRINTB (.P1, .P6, .P4, .P5);: 


F 
SN'T 


soe 





Ld 
xz 
-o 
_™" 
og 


este 1 
MISCELLANEOUS SECTIONS 15:23:25 VAX-11 Bliss-16 V3-555 Page 2 
RC25 CONTROLLER ERROR REPORTING :44:20  SPIDERSUSERS:CLAKSHMANA. 11REL. REAL JZRC A (is 
if .P_MASK eqlu 1 then PRINTB (.P1, .P4); 
end; 
if “3 nequ 0 ! 1F ELIGIBLE REGISTER(S) 
i PRESENT, THEN PRINT-OUT 
eM PRINTB (FMT3, .P6, .P3): i SELECTED CONTROLLER 
, ' REGISTER(S). 
PERFORM FIELD REPLACEABLE UNIT CALL-OUT 
iif .P2 nequ 0 t IF ELIGIBLE FRU CALL~OUT(S) 
ithen PRESENT, THEN PRINT-OUT 


pars RU CALLOUT (.P2); i FEILD REPLACEABLE UNITS. 
LEARALL PARAMETERS 


! END OF ROUTINE: 


-SBTTL MSRCZ25SERR.RPT RC25 CONTROLLER ERROR REPORTING 
MSRC25SERR. eRPT: ' 


3$ 
0000006 000003 + seaeeai ; 
0000006 
0000006 


0000006 
0000006 
000004 


000012 


00001 
0000006 000001 


0000006 
0000006 
000002 


SSSsesseess 
REBRRANSRS 





SEQ 112 
MISCELLANEOUS SECTIONS 8-Jul-198 725 VAX-11 Bliss-16 V3-555 Page 2 
RC25 CONTROLLER ERROR REPORTING S-jut=1983 1 :30 SPIDERSUSERS: CLAKSHMANA. 1 1REL .REALIZRCPA (13 
#6,SP | 
3$: es 2006 
4$ 
P3,-(SP) 


P6,=(SP) 
#FMT3,-(SP) 
#3,-(SP) 


#10, 
P2,-(SP) 
 aleshatciatamcaatats 


3; Routine Size: 86 words, Routine Base: ABSCODE + 0304 
: Maximum stack depth per invocation: 7 words 





J 9 


SEQ 113 
MISCELLANEOUS SECTIONS 8-Jul=1 : VAX-11 Bliss-16 V3-555 Pa 26 
FIELD REPLACEABLE UNIT REPORTING 8-Jul=1 : SP IDERSUSERS: LLAKSHMANA. 11REL.REALIZRCFA (14 


Zsbttl "FIELD REPLACEABLE UNIT REPORTING’ 

global routine PRTSFRU_CALLOUT (FRUSMASK) : novalue = 
T + 

: FUNCTIONAL DESCRIPTION: 


THIS ROUTINE REPORTS FIELD REPLACEABLE UNITS WHICH ARE 
DEEMED ELIGIBLE FOR PRINT-OUT BY THE FAILING TEST. 


( 

i] 

; 

FORMAL PARAMETERS: 
FRUSMASK - FIELD REPLACEABLE UNIT CALL-OUT MASK. 
: IMPLICIT INPUTS: 
= NONE - 

: IMPLICIT OUTPUTS: 
' = NONE - 

: COMPLETION CODES: 
- NONE - 
SIDE EFFECTS: 

. - NONE - 
begin 


Local 
FRUSMSG; ! ALLOCATE STORAGE FOR 


! POINTER TO FRU MESSAGE. 
; PERFORM FIELD REPLACEABLE UNIT CALL-OUT 
incru FRU_SELECT from 0 to 3 do ' CHECK EACH FRU FOR 
' POSSIBLE CALL-OUT. 
if BIT_TST (.FRUSMASK, 1*.FRU_SELECT) ! IF CURRENT FRU ELIGIBLE 
then i FOR PRINT-OUT THEN GET 
begin i POINTER TO FRU MESSAGE. 


selectu 1*.FRU_SELECT of ! SELECT FRU FROM ONE OF 
set ! THE FOLLOWING: 


CADAPT] : 
FRUSMSG = ADAPTO; ! GET ASYNC FRU MESSAGE. 


CCONTR] : 
FRUSMSG = CCNTRO; ' GET SYNC FRU MESSAGE 


CORIVE) : 
FRUSMSG = DRIVE_; ! GET ARR_DAT FRU MESSAGE 





kK 9 


SEQ 114 
MISCELLANEOUS SECTIONS 8-Jul-1983 15:23:25 VAX-11 Bliss-16 V3-555 Pa 27 
FIELD REPLACEABLE UNIT REPORTING 8-Jul-1983 12340330 SPI DERSUSERS: LLAKSHMANA. 1 1REL.REALJZRCFA (14 


CMECH) : 
FRUSMSG = MECHAN; ' GET MEM_ARR FRU MESSAGE 
tes; ! PRINT FRU CALL-OUT. 


PRINTX (FRU, .FRUSMSG, .UNIT); 
eid; ' END OF ROUTINE: 


! "PRTSFRU_CALLOUT’. 
-SBTTL PRTSFRU.CALLOUT FIELD REPLACEABLE UNIT REPORTING 
PRTSFRU.CALLOUT: : 
JSR R1,$SAVE3 ; 
R3 ; FRU.SELECT 


18: > 
; FRU.SELECT,* 


(SP)+ 
ali ; FRUSMASK,* 


o FRU.SELECT,* 


PC ,BLS$S 
(SP)+,(SP)+ 
R1,R0 


° ; FRU.SELECT,* 
PC ,BLSSHF 

#ADAPTO,R2 ; *,FRUSMSG 
RO,#2 ; 

#CONTRO,R2 ; *,FRUSMSG 

RO #4 ; 


ADRIVE. .R2 ; *,FRUSMSG 
RO,#10 ; 


0000006 #ME CHAN, R2 ; *,FRUSMSG 
0000006 : ; 


0000006 
000003 
000012 
000003 


Seseesseesess 
NSFSSFSEGEVS 


= 
“N 
. 


z: Routine Size: 63 words, Routine Base: ABSCODE + 0560 





a 


ZRCFA2 MISCELLANEOUS SECTIONS 8-Jul-1983 1 
v01.0 FIELD REPLACEABLE UNIT REPORTING 8-Jul-1983 1 


: Maximum stack depth per invocation: 11 words 


SEQ 115 
5:23: VAX=-11 Bliss=-16 V3-555 
4:44 


25 Page 
:20 SPIDERSUSERS: CLAKSHMANA. 11REL.REALIJZRCFA (14 


2091 





m9 


SEQ 116 
MISCELLANEOUS SECTIONS 8-Jul-19 : VAX-11 Bliss=16 V3-555 Page 29 
AZTEC INITIALIZATION 8-Jul-19 : SPIDERSUSERS: CLAKSHMANA.11REL.REALIZRCFA (15 


Msbttl "AZTEC INITIALIZATION’ 
global routine AZT_INIT = 
; FUNCTIONAL DESCRIPTION: 


THIS ROUTINE WILL DO STEP 1 THROUGH STEP 3 CHECK FOR ANY ERRORS 
IN EACH STEP AND RETURN TRUE OR FALSE. 


i FORMAL PARAMETERS: 
i - NONE - 
i IMPLICIT INPUTS: 
STEP 1 WRITE DATA 
STEP 2 WRITE DATA 
STEP 3 WRITE DATA 
STEP 4 WRITE DATA 
B_MASK = WITCH STEPS WILL BE DONE 
%0 1 = STEP 1 
= STEP 1,2 
%0 7 = STEP 1.2,3 
4017 = STEP 1,2,3.4 
i IMPLICIT OUTPUTS: 
IF ERROR OR NO STEP IT WILL RETURN 
P1-P5,P_MASK 


i RET STATUS 
! COMPLETION CODES: 


TRUE OR FALSE 
i SIDE EFFECTS: 


~ 
z 
-—o- 
'_" 
og 


rer es 
ooo 3 


SSosse 
CONAUSWN $0 OONAULSWN 0 OONOUESWN—O 


=] 


NONOPONONOPONONYND 2 2 OS 


eee mee ee me me ee ee me ee ee ee ee ee ee ee ee ee ee ed ae ee ee ed ed ed aed ed aed 


'STEP NUMBER 

'STEP MASK 

‘TIME OUT COUNT 

!'WRITE DATA FOR THE STEP 


INIT THE AZTEC 
1_AM_NEX = ALL_ONES; ! INIT INTERRUPT FLAG 
' THE FOLLOWING LOOP WILL DO STEP 1 THRU 4 A 
i INPUT SELECTING APPROPRIATE DATA INPUT FOR 

W 


! ERROR iN SA REGISTER P1 = P4 AND P_MASK W 
! ERROR REPORT. ONLY SA DATA FOR THE FINAL 


S GIVE 
STEP 
LL_BE 
RITE S 


N BY B_MASK 
WRITES. IF 
SUPPLIED FOR 

TEP IS PRESERVED. 


Ponononononononononononono nono ono nono nononono no nono noon Pononononononononononononononnnn) ~w 


BRR REKLREWWWWWWnr 
COONAUSWN—OVONAUSWN OO 


ee ek ed etd td od od ot od 





nN 9 


30 0 OO OO 00 00 00 00 00 00 Gn G9 G0 CO 


SEQ 117 
ZRCFA2 MISCELLANEOUS SECTIONS 8-Jul-1983 15:23:25 VAX-11 Bliss-16 V3-555 pope 30 
v01.0 AZTEC INITIALIZATION 8-Jul-1983 14:44:20 SPIDERSUSERS: CLAKSHMANA.11REL.REALIZARCFA (15 
2149 MASK = %b'0001'; ' STEP MASK 
2150 WRT_RC25 (RCIP, ALL_ONES); ' START INIT 
$12) DELAY (2); ! WAIT FOR COMPLETION 
2153 incru N from 0 to 4 do 
ae a 
2156 if (.N eqlu 0 or BIT_TST (.B_MASK, .MASK)) ! TEST FOR STEP NUMBER 
2157 then 
2158 begin 
2159 ! 
2160 
2161 selectoneu .N of ' SELECT CORRECT WRITE 
2162 set ! 
2163 
2164 (0) : 
2165 DATA = ALL_ONES; ! 
2166 
2167 C1] : 
sie ‘ DATA = .DATAI; ' DATA FOR STEP WRITES 
217 C2] : 
217 DATA = .DATA2; 
217 
217 (3) : 
217 DATA = .DATA3; 
217 
217 (4] : 
217 DATA = .DATA4; 
217 tes; 
21 
$i 
$1 if .N gequ 1 then WRT_RC25 (RCSA, .DATA); ' STEP N WRITE DATA TO SA 
4 inary COUNT from 0 to 20 do ' TIME OUT WAIT LOOP 
egin 

$\ DELAY (333); ! DELAY 1 SEC. APPROX. 
$1 if .1_AM_NEX eqlu ALL_ONES then exitloop; 
$1 end; 
21 if .I_AM_NEX eqlu ALL_ONES 
21 then 
21 egin 
21 DELAY (2); 
Sis RC25_DATA CRCSA, RC_ALLJ = .RC25_ADDR CRCSA, RC_ALLJ; ' STEP N READ 
S196 if .N nequ 0 then MASK = .MASK*1; ! INCREMENT STEP 

Soon I_AM_NEX = ZERO; 

2202 if (.RC25_DATA CRCSA, RCSA_ER] nequ ZERO) ' IF SA REGISTER CONTAINS 

30 “ 


Be Be Se Se Be Ve Be Be Ge Be Se Fe Se Be Se Ge Ge Fe Se Se Ge Se Ge Fe Se Be Se Se Se Be Be Se Se Se Se Se Se Se Se Ge Be Se Ge Ge Fe Ge Se Se Ge Se Se Ge Se Se Se Se Ge 


begin 
2205 RET_STATUS = PFE_CODE; 





B 10 


= "9 
CELLANEOUS SECTIONS 8-Jul-1983 15:23:25 VAX-11 Bliss-16 V3-555 
EC C INITIALIZAT ION 8-Jul-1983 14 14 44:30 SPIDERSUSERS: CLAKSHMANA. 11REL. nen.szadlh ds 


exitloop; 
end 
else 


begin 
iy (.RC25_DATA CRCSA, RCSA_STEP] nequ .MASK) ! ERROR OR INCORRECT STEP 
then 
peaio ! SUPPLY P1 THRU PS AND 
K = 2; 


eT = pat 

P2 = 

P4 = Cees + 2; 

P5 = ce BATA tresa: RC_ALL); 


P6 =. 

MSGADR = = MSG_1 14; 

RET_STATUS = “TRUE; 

return « eRET_STATUS; ! TRUE STATUS. 
end; 


end; 


SNS NNSA LSSSSS 


morn 


POPQPIPONIPNNYNINNINNYNPONINIPOP 
roronroere 
WNC OONOULWN—O 


honor 


e 
else 
begin 
RET_STATUS = CTO_CODE; 
exitloop; 
end; 
end; 
end; 
if .RET_STATUS 
one pat 
PAASK = 2; 
PY = pat 2 


(. Cases ADDR) + 2; 

os .RC25_BATA CRCSA. RC WALLI; 
MSGADR = MSG 

return .RET Status: 

end 


lse 
return RET_STATUS = PAS_CODE; 
end; 


-SBTTL AZT.INIT AZTEC INITIALIZATION 
0000006 AZT. INIT:: 
JSR R1,$SAVE5 


177777 0000006 : 

1 # : *, MASK 
177777 #~1,RO : #.RCM.REG 
0000006 RO,@RC25.ADDR  RCM.REG,* 








SEQ 119 
MISCELLANEOUS SECTIONS 223: VAX-11 Bliss-16 V3-555 Pose 32 
AZTEC INITIALIZATION 244: SPIDERSUSERS: CLAKSHMANA. 11REL.REALIZRCFA (15 


000002 MOV #2 : *,SSTMP2 2151 
0000006 7 MOV $ *,SSTMP1 


000002 : ; SSTMP 
: SSTMP1 


; SSTMP2 


> N,* 
; *,DATA 


; *,DATA 


SREENSRNARVS 


; *,DATA 


wi 
~ 


; *,DATA 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SHNASTSE 


sesseesecs 


DATAG,R2 ; *,DATA 
RS : N 

12$ 

R2,R1 
RC25.ADDR,RO 
R1,2(RO) 


000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000. 


; DATA,RCM.REG 
; RCM.REG,* 

; COUN 

; *,SSTMP2 

; *,SSTMP1 


S 
Sacer 


Beas 


; SSTMP 
; SSTMP1 
; SSTMP2 


agssesss 


oo 
Ssz 
™N 


BR 14$ 
0000006 177777 : tat. NEX ,#~1 
R3 ; COUNT 











D 10 


SEQ 120 
~Jul=1983 15:23:25 VAX-11_BLiss=16 3-555 Page 33 
Bn Jut=1985 14:44:90 SPIDERSUSERS:LLAKSHMANA, 11REL.REALIZRCPA (15 


R i *; COUNT,* 
Y.AN.NEK, #1 : 2192 
#2,R3 : *,SSTMP2 2195 
‘ome «,SSTMP1 

(SP) ; $$TMP 
RO : $$TMP1 
20$ 
R3 : $STMP2 
19$ 
RC25. ADDR, RO ; 
2(RO), (SPS : #,RC.REG 
(SP) ,RC25.DATA*2 = RC.REG,* 
R5 : N 
23$ 
Ro 
0000006 : 1.AM.NEX 
100000 0000026 #100000,RC25.DATAS2 
000021 0000006 #21,RET. STATUS 

BR 27$ 


; MASK 


: R4,RI 

0000026 MOV RC25.DATAS2.RO 
RO 

RO 

RO 

#177760,R0 
RO,R1 

26 

#2,P.MASK 
#FATS,P1 

#1,P2 
RC25.ADDR,RO 
#2,R0 

RO.P4 

R25 DATAS2.P5 
4#MSG.14,MSGADR 
#1,RET. STATUS 
RET. STATUS,RO 


29S 
#11,RET.STATUS 
27$ 


MRM horrnrnr 
=—MnM hnrrrrnr 


RS 

R54 

27s 

5$ 
#1,RET.STATUS 


#2,P.MASK 
#FAT3,P1 


#1,P2 
RC25.ADDR,RO 


? 177316 
000001 


0000006 000000G 
000001 0000006 
0000006 








E 10 


ZRCFA2 MISCELLANEOUS SECTIONS 8-Jul-7983 1 VAX-11 Bliss-16 V3-555 
v01.0 AZTEC INITIALIZATION B-Jul-1983 1 


SEQ 121 


P 
SPIDERSUSERS : CLAKSHMANA. 11REL JREALIZRCPA (15 


000002 #2,RO0 
7 0000006 RO,P4 
, 0000026 0000006 RC25.DATAt2, PS 


-P6 
0000006 0000006 #MSG.14,MSGADR 
0000006 RET. STATUS ,RO 


BR 
0000006 28$: RET.STATUS 
298: (SP)+,(SP)+ 
PC 


3; Routine Size: 213 words Routine Base: ABSCODE + 0756 
: Maximum stack depth per invocation: 9 words 
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460 122 
TION 983 15:23:25  VAX=11 Bliss-16 v3-555 
AITEC INITIALIZATION BY POLING S83 12:28:35 VANGERSOSERSsEeaxSnmawa.t1REL.REALIZRCPA (16 


Usbttl "AZTEC INITIALIZATION BY POLING’ 
global routine AZP_INIT = 
FUNCTIONAL DESCRIPTION: 


THIS ROUTINE WILL DO STEP 1 oy STEP 4 CHECK FOR ANY ERRORS 
IN EACH STEP AND RETURN TRUE OR FALSE. 


i FORMAL PARAMETERS: 
= NONE = 
i IMPLICIT INPUTS: 
DATA1 = STEP 1 WRITE DATA 
DATA2 = STEP 
DATAS = STEP 
DATAG = STEP 4 WRITE BATA 


B_MASK = WITCH STEPS WILL BE DONE 
20 1 = STEP 1 


4017 = STEP 1.2.3.4 
i IMPLICIT OUTPUTS: 
IF ERROR OR NO STEP IT WILL RETURN 
P1-P3P MASK 
! STATUS 
i COMPLETION: CODES: 
TRUE OR FALSE 


i SIDE EFFECTS: 


'STEP NUMBER 
fp MASK 


TIME OUT COUNT 
igRITE DATA FOR THE STEP 
INIT THE AZTEC 


THE POLL OVING LOOP WILL DO ie 1 THRU 4 AS siven 
INPUT SELECTING APPROPRIATE DATA INPUT FOR STEP 
ERROR IN SA REGISTER P1 - P4 AND P_MASK WILL BE SU 
ERROR ee opaT ts ONLY SA DATA FOR THE™ FINAL Ne at 


MASK = 2b 
WRT “R25 (RCIP, ALL ONES) ; i START INIT 


G 10 
SEQ 123 
ANEOUS SECTIONS 8-Jul-1983 13s¢33¢5 VAX-11 Bliss=16 V3-555 Page 36 
NITIALIZATION BY POLING B-Jul-1983 14:44:20 SPIDERSUSERS : CLAKSHMANA. 11REL.REALIJZRCFA (16 
DELAY (2); ! WAIT FOR COMPLETION - 


incru N from 0 to 4 do 
begin 


L 


R= 
i 
“WwW 
mea 
am 
—r 


7 (.N eqlu 0 or BIT_TST (.B_MASK, .MASK)) ! TEST FOR STEP NUMBER 
en 
begin 


WANA NWw 
ee ed ed ed ed od od od 
SWOONAOUEWN oO 


staan “tae oN of : SELECT CORRECT WRITE 
se $ 


[0] 


Mononororonororoferorororern 
RRO 


DATA = ALL_ONES; 


(1) : 
DATA = .DATA1; ' DATA FOR STEP WRITES 


RRrorOrD 
ONAOUSWN— 


{23 : 
DATA -DATA2; 


WW 
m— 


[3] 


a) 


DATA = .DATA3; 
[4] 
tes: 


DATA = .DATAG; 


Wits 
QAR 


IN'-WWG 
WWW 


incru count from 0 to 20 do ! TIME OUT WAIT LOOP 
n 


DELAY (333); ! DELAY 1 SEC. APPROX. 
RC25_DATA CRCSA, RC_ALLJ = .RC25_ADDR CRCSA, RC_ALLJ; 


if .RC25_DATA CRCSA, RCSA_STEP] eqlu .MASK then exitloop; 
RET_STATUS = CTO_CODE; 
end; 


WONAUSWh OOo 


if (.RC25_DATA CRCSA, RCSA_ER] nequ ZERO) 
then 


begin 
RET_STATUS = PFE_CODE; 
exitloop; 


He He He pete pepe tpt 
RBAAAAAAAGE ERE RE EEE 


MAMI 


Ww 
SOOONOUEWN—oO 


Rorononononofy 
SSFESES 


+ 2; 








pane 1 
+g VAX-11 Bliss=-16 V3-555 Page 
:20 SPIDERSUSERS: CLAKSHMANA. 11REL .REALIZACFA G6 


P5 = .RC25_ -DATA CRCSA, RC_ALLI; 


P6 = 
MSGADR = MSG. 14; 
return RET_STATUS; ! TRUE STATUS. 


_ 


Refs STATUS = PAS_CODE; 
end; 


SSE% 


ANNAN 
ONOUSWN— 


end; 
if .N nequ ZERO 
then 

begi 


n 
MASK = .MASK*1; 
ol ce (RCSA, .DATA); ! STEP N WRITE DATA TO SA 
eng; 


MoPoPoRononononororornerors 
~“ 


WIWWNNWWW Ww 


SESSSeeees3 


end; 
end; 
if .RET_STATUS 
then 


Ponononononononononan) 


ADAP 
(. ace AD + 2; 
RC25 BATA tresa® RC_ALLJ; 


P6 = SK; 
MSGADR = MSG_1 
return .RET Setaius: 
' end 
se 
return .RET_STATUS; 


end; 


-SBTTL AZP.INIT AZTEC INITIALIZATION BY POLING 


AZP.INIT:: 
JSR R1,$SAVE5 
-(SP) ,-(SP) 
#1,R5 ; *, MASK 
#-1,RO0 : *, RCM. REG 
RO,a@PC25.ADDR . Rom ; 3 Phy 
#2.R1 : Mp2 


ooooo 
3 = 
o = 
* 


; apes 
; SSTMP 

; SSTMP1 

; SSTMP2 





SESSEVRKRSANSERS 


S338S388sS8Ss8sses9 


NIEBSR 


BREEEEE 
uSEsona 


000076 
010300 


MISCELLANEOUS SECTION 
AZTEC INITIALIZATION BY POLING 


0000006 


177777 
000001 
0000006 
000002 
0000006 
000003 
0000006 
000004 
0000006 
000515 
0000006 


066 000002 


177760 


000011 


204 
7 000024 


100000 


0000006 


0000026 


4$: 
5$: 


6$: 


7$: 


16$: 


17$: 


I 10 
8-Jul-1 


983 
8-Jul-1983 


13$ 

ates Anes ae 
(SP) ,RC25.DATA+2 
R5.R 

(SP) ,RO 

RO 

RO 

RO 

RO 

#177766,R0 

Be 
#11,RET.STATUS 

R4 

f #24 

#100000, RC25.DATA+2 
18$ 


SEQ 125 
VAX-11 Bliss-16 V3-555 page 
SPIDERSUSERS: CLAKSHMANA. 11REL.REALIZRCFA (16 
3 N 231 
: N 231 
3 MASK,* 
3 *,MASK 
: N,* 2320 
3 *,DATA 2324 
3 2320 
3 *,DATA 2327 
3 2320 
3; *,DATA 2330 
3 2320 
3; *,DATA 2333 
3 2320 
3 *,DATA 2336 
3 COUNT 2341 
3 *,SSTMP2 2343 
: *,SSTMP1 


3: SSTMP2 

3 2344 
3: *,RC.REG 

; RC.REG,* 

3 MASK,* 2346 
: RC25.DATA+2,* 

3 2348 
3; COUNT 2341 
3; COUNT,* 

3 2351 


012767 
000465 
010501 
016700 
006200 


MISCELLANEOUS SECTIONS 
AZTEC INITIALIZATION BY POLING 


000021 0000006 


0000026 


177760 


000002 0000006 
0000006 0000006 
000001 0000006 


00 000002 
7 0000006 
0000026 0000006 


3 Routine Size: 
3; Maximum stack 


2406 


0000006 0000006 
0000006 


0000006 


0000006 
000002 
000004 


177362 
000001 0000006 


000002 0000006 
0000006 000000G 
000001 0000006 
0000006 
000002 
0000006 
0000026 0000006 


0000006 0000006 
0000006 


0000006 


191 words, 


depth per invocation: 


18$: 


22$: 
23$: 


Routine Base: 
9 words 


J 10 


8-Jul-19 
8-Jul-19 


#21 ,RET.STATUS 
21$ 


R5,R1 
RCOS.DATA+2,RO 
RO 


RO 
RO 


#1,P2 
RC25.ADDR,RO 
#2,R0 


RO, P4 
RC25.DATA+2,P5 


#MSG.14,MSGADR 
RET. STATUS, RO 


RET.STATUS 
R3 

20$ 

R5 


R2,RO 
RC25.ADDR.R4S 
RO,2(R4) 


R344 
21$ 


5$ 
#1,RET.STATUS 


#2,P.MASK 
#FMTS,P1 


#1,P2 
RC25.ADDR,RO 
#2,R0 


RO, P4 
R25 DATA*2.P5 


#SG.14,MSGADR 
RET. STATUS, RO 
RET.STATUS,RO 
(SP)+, (SP)4 


ABSCODE + 1630 


SEQ 126 
VAX-11 Bliss=-16 V3-555 Poge 39 
SPIDERSUSERS: CLAKSHMANA.11REL.REALIZRCFA (16 


3 2354 
8 2353 
3: MASK,* 2360 


3: N 
: MASK 
3 DATA,RCM.REG 


; RCM.REG,* 
; N 
. N,* 
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SEQ 127 
ZRCFA2 MISCELLANEOUS SECTIONS 8-Jjul-1983 15:23:25  VAK-11 Bliss-16 V3-555 Page 40 
v01.0 COMMUNICATION RING INITIALIZATION 8-Jul-1983 14:44:20  SPIDERSUSERS:CLAKSHMANA. 11REL.REALIZRCFA (17 
; 3407 Zsbttl "COMMUNICATION RING INITIALIZATION’ 
: 2409 
; seit global routine INIT_COM_AREA = 
: 2412 +4 
: 3413 § FUNCTIONAL DESCRIPTIONS: 
: 2414 | THIS ROUTINE FIRST MAKES SURE THAT THE COMMUNICATION AREA'S 
: 2415 | RING BUFFERS ARE CLEARED, THEN THE COMMUNICATIONS AREA IS 
: 2416 INITIALIZED AS FOLLOWS: 
; 2418 | 1. DEFINES FROM THE CONTIGIOUS DATA STORAGE STRUCTURE ‘‘COM_AREA" 
; 2419 i THE HEADER AREA ADDRESS, RECEIVE RING ADDRESS AND THE SENDING 
: 3420 ; RING ADDRESS. 
: 2422 | 2. CLEARS THE INTERRUPT INDICATORS (RING BASE -1, <2, -3, =4) 
: 423 DEFINED AS HEAD_AREA. 
: 3425 ! 3. LOADS THE RECEIVE AND SEND DESCRIPTORS WITH THE VALUES: 
: 2427 | A. ENVELOPE LOW, HIGN AND Q BUS ADDRESS 
: 2428 | B. RESERVED FIELD 
: 2429 | > FLAG BIT 
: 2430 ! D. OWENERSHIP BIT 
; 2432 | 4. LOAD THE RECEIVE ENVELOPE MESSAGE LENGTH WITH THE BUFFER SIZE 
; 2433! IN BYTES. 
s 2434 =~! 
; 2435 ' FORMAL PARAMETERS: 
: 2436 | “NONE = 
: 2437 =! 
: 2438 | IMPLICIT INPUTS: 
; 2459 ; HEAD_AREA, RECEIVE_RING, SENDING_RING, COM_AREA 
: 2441 | IMPLICIT OUTPUTS: 
: 2442 | AS A RESULT OF THIS ROUTINE THE COMMUNICATION AREA WILL 
; 443 ! BE INITIALIZED. 
; 2445 | COMPLETTION CODES: 
: 2446 | FAL_CODE : INDICATE AN ERROR HAS OCCURED 
: 2447 PAS"CODE : INDICATE NO ERROR 
: 2449 | SIDE EFFECTS: 
: 2450 | - NONE - 
: 2451 inn 
; 2452 
3 seaz begin 
; 2458 incru I from 0 to RING_SIZE - 1 do ! TEST RING AREA FOR ZEROS 
: 3457 incru J from 0 to 1 do ! : 
: 2459 if .COM_AREA [.1, .J, WORD_REFJ negu 0 ! IF RING AREA IS NOT CLEAR 
; 2460 then \ THEN 
; 2461 begin 
: 2462 RET_STATUS = FAL_CODE; 


2463 return .RET_STATUS; ! RETURN WITH ERROR CODE SET 


— i 
MISCELLANEOUS SECTIONS : VAX-11 Bliss=16 V3-555 pene 
COMMUNICATION RING INITIALIZATION : SPIDERSUSERS: CLAKSHMANA. 11REL..REALIJZRCFA dy 


end; 


~ 
» 
-—-o- 
_™" 
oR 


i DEFINE THE ADDRESS LOCATIONS OF THE HEAD_AREA, RECEIVE_RING 
! AND SEND_RING. 


HEAD yr = COMA ! DEFINE THE HEADER AREA 
RECETVE RING = tom. AREA CREC BASEJ; ! DEFINE THE RESPONSE RING AREA 
SEND "RING. = COM_AREA CSND_BASEJ; ! DEFINE THE COMMAND RING AREA 


incru_I from WORDO to WORDS d ! CLEAR THE HEADER AREA 
HEAD_AREA C.1, WORD ORFs ZERO; : 


'+ 

i LOAD UP_THE COMMAND RING DESCRIPTORS WITH AN ENVELOPE ae tal 
| DEFINE THE ‘FLAG BIT’ TO = 1 (INTERRUPT REQUESTED), DEFINE THE 
i OWNERSHIP La TO ZERO (OWENED BY HOST) AND LOAD THE RESERVED 
t FIELD WITH ZERO 


incru I from 0 to SND_ALLOCATE - 1 do ! 


» LO_ENSAD] = SND ENVELOPE C. 1, CMD_LREFJ; ! LO-ORDER SEND ENVELOPE ADDR 
HI_ENSADJ = ZERO; ! RDER R SEND ENVELOPE” ADDR 


D_RSVDJ = ZERO; : ADDRESS 

FLAG BIT) = ZERO; ! FLAG BIT, 1=INT. REQUESTED 
SEND RING = ZERO; ! OWNERSHIP BIT, O=OWNED BY HO 
end; 


'¢ 

i LOAD ‘4 THE paonenl ae DESCRIPTORS WITH AN ENVELOPE ADDRESS, 
| DEFINE THE OWNERSHIP BIT’’ = 1 (OWNED BY PORT) DEFINE THE ‘FLAG 
i oir TO = 1 CINTERRUPT REQUESTED) AND THE RESERVED FIELD SET TO 


i ZEROS 


ead > + wren 0 to REC_ALLOCATE = 1 do 


= REC awe C.1, CMD Laer: } LO-ORDER SEC ENVELOPE ADDR 
= 2ERD; ! HI-ORDER COMMAND ENV. ADDR 
; HI-ORDER PORTION OF UO NADDR 
: RESERVED 


novia =RING _B1T) = i QWENER BIT, 1=OWNED BY PORT 
end; 


MUVMIMIuwvi 
ooo 
Ono 


' 
: SET THE RESPONSE ENVELOPE MESSAGF LENGTH 


incru I from 0 to REC_ALLOCATE - 
REC_ENVELOPE C.1, MSG_ ea) Re S1ZE*2: ! CONVERT TO BYTES BEFORE 


RET_STATUS = PAS_CODE; ' LOADING 
return . -RET_STATOS; 
end; 


MMIVMIUMIUIVIVMIUIUIUI TU) 
Oe ee ee oS 
SvwUsOVNOuUSWN—o 
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SEQ 129 
MISCELLANEOUS SECTIONS 8-Jul-1983 15:23:25 VAX-11 Bliss=-16 V3-555 page 42 
COMMUNICATION RING INITIALIZATION B-Jul-1983 14:44:20 SPIDERSUSERS: CLAKSHMANA. 11REL.REALIZRCFA (17 


.SBTTL INIT.COM.AREA COMMUNICATION RING INITIALIZATION 
INIT.COM.AREA:: 
JSR es 


1$: R14 
2$: R2,RO 


R1,R0 
0000006 COM.AREA(RO) 


0000006 0000006 #FAL. CODE ,RET.STATUS 
0000006 _— 


: R1 
000001 MP R1,A1 
2$ 
R2 
000037 MP R2.37 
0000006 0000006 #COM. AREA, HEAD.AREA 
9000106 0000006 MO #COM. AREA+10,RECEIVE.RING 
0001106 0000006 #COM.AREA#1 10, SEND RING 
RO,R1 


0000006 HEAD. AREA,R1 
(R1) 


200 
7? 000003 


R1 

SEND.RING,R1 
R2,-(SP) 

#54,-(SP) 

PC .BLSMUL 

#SND. ENVELOPE+4 ,RO 
RO, (R1) 


106 
110 
112 
116 
120 
122 
126 
130 
132 
134 
136 
140 
144 
146 
152 
156 
162 
164 
166 
170 
172 

6 
204 


RO 
0000006 SEND.RING,RO 
000003 000002 #3,2¢RO) 

MOV R2,RO 


0000006 
000074 000002 


000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
00017 
000 
000206 
000210 
000212 
000216 
000224 
000226 
000230 
000232 


RO 
0000006 SEND.RING,RO 





005001 


MISCELLANEOUS SECTIONS 


COMMUNICATION RING INITIALIZATION 
760 037700 000002 


0000006 
040000 000002 


6$: 


000077 


0000006 
000003 000002 
0000006 
000074 000002 
0000006 
037700 000002 


0000006 
040000 000002 


0000006 
100000 000002 


000017 


BIC 


N 10 
8-Jul-1983 15: 1365 
B-Jul-1985 14:44:20 
os) Teveneaee 
R2,RO 
RO 
SEND.RING,RO 
#40000,2(RO) 


oe 


RO 
SEND.RING,RO 
#100000, 2(RO) 
ee (SP)+ 


Ro,417 


R 

RECEIVE .RING,R1 
R2,R0 

R 

RO 

RO 

RO 

#77,R0 

#REC ENVELOPE +4 ,RO 
RO, (R1) 


RO 

RECEIVE .RING,RO 
#3,2(RO) 

RO 

RECEIVE .RING,RO 
#74,2(RO) 


0 
RECEIVE.RING,RO 
#37700,2(RO) 
R2,RO 

RO 

RO 
RECEIVE.RING,RO 
#40000, 2(RO) 
R2,RO 

RO 

RO 
RECEIVE.RING,RO 
#100000,.2(R0) 
R2,417 

6$ 

R1 


VAX-11 Bliss-16 V3-555 
SPIDERSUSERS : CLAKSHMANA. 


: I.* 


SEQ 130 
page 43 
TIREL.REALIZRCFA (17 


2490 


2491 


2485 
2484 


* 2501 


1 2503 


2504 


2505 


2506 


2507 


2508 


2501 


2515 





B11 


MISCELLANEOUS SECTIONS 8-Jul-1983 Fe > 


SEQ 131 
VAX-11 Bliss=-16 V3-555 
COMMUNICATION RING INITIALIZATION B-Jul-1983 14:4 


5 Page 44 
0 SPIDERSUSERS: CLAKSHMANA. 11REL.REALIZRCFA (17 
; I,* 2516 


#77 RO 

Soh ee SLES Oe 
R1,417 

7$ 


RET.STATUS 
hes eatmecmas 


3 Routine Size: 183 words Routine Base: ABSCODE + 2426 
3; Maximum stack depth per invocation: 6 words 


2521 
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C 11 
MISCELLANEOUS SECTIONS 8-Jul-1 
AZTEC GLOBAL ROUTINE 8-Jul-1 
%sbttl "AZTEC GLOBAL ROUTINE’ 
global routine EX_SUP_PRG = 


+t 
FUNCTIONAL DESCRIPTION : 


9 : VAX-11 Bliss-16 V3-555 
9 $ SPIDERSUSERS : CLAKSHMANA. 


THIS CAMMNAD CAUSES THE SERVER TO TRANSFER THE PROGRAM FROM HOST 
MEMORY TO AN AREA IN THE CONTROLLER AND START IT EXECUTION. 


IMPLICIT INPUTS : BUF _DESCRPTR 


IMPLICIT OUTPUTS : RET STATUS 
SIDE EFFECTS : 


i 

i 

n 

i 

i 

a 

FORMAL PARAMETERS : 
i 

i 

: 

: 

i 

tee 

begin 
local 


! 
| THE INTERRUPT ROUTINE WILL SET THE FLAG CANCEL_TIMER WHEN CALLED. 
: CLEAR THE FLAG HERE TO INSURE THE DETECTION OF THE INTERRUPT. 


i_AM_NEX = ZERO; 


: UQ PORT COMMAND ENVELOPE HEADER FIELD DEFINITION 


SND_ENVELOPE C.CMD_SLOT, MSG_LENGTH] = SZ_ESP; 
SND_ENVELOPE pe aot. CREDITS] _= ONE; 
SND_ENVELOPE C.CMD_SLOT, MSG_ TYPE) = 0; 
SND_ENVELOPE C.CMD-SLOT, CONN_ID) = 2; 
DUP COMMAND ENVELOPE FIELD DEFINITION 
-CMD_SLOT, CMD_REF ; 
MD_SLOT, CMD_HREF ZERO; 
¢ RO; 


- CMD" SLOT, 
= CMD~SLOT. 


fond 
Ue | | | | | | | 
OOo ° 


! BYTE COUNT LOW WORD 


*"' BYTE COUNT HIGH 
: | BUFFER DESCRIPTOR WORD 0 
FER DESCRIPTOR WORD 1 


5 
0 


SEQ 132 
Page 45 
TIREL.REALIZRCFA (18 
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poee i 
MISCELLANEOUS SECTIONS 8-Jul-1983 15: o7°33 VAX-11 Bliss-16 V3-555 Pope: 
AZTEC GLOBAL ROUTINE 8-Jul-19835 14: 0 SPIDERSUSERS: CLAKSHMANA.11REL. REAL JERE 4 8 


di cm SLOT, BUFFER DESCRIPTOR WORD 1 


0BD_1 : | 
SND ENVELOPE OBD et i BUFFER DESCRIPTOR WORD : 
SND ENVELOPE OBD- : | R 
SND ENVELOPE 080-4] 

SND_ENVELOPE -CMD-SLOT, 08D-5J 

SET THE OWNERSHIP BIT TO 1 WHICH GIVE THIS SLOT TO THE PORT. 
SEND_RING C.CMD_SLOT, OWN_BIT] = PORT_OWNED; 

; READ THE IP REGISTER TO STIMULATE PORT POLLING. 

TEMP = .RC25_ADDR CRCIP, RC_ALLI; 

GET THE COMMAND SLOT NUMBER FOR NEXT COMMAND 

GET_CMD_SLOT QO: 


ieee ae 


Morononononorononsrorern 
co 
0 


PAAAMMAMMUIVIVIV 


f 
DELAY (1); 
| CHECK THE END PACKET FOR GOOD STATUS 
return REC_STATUS (); ‘RETURN THE STATUS 
eng; 
.SBTTL EX.SUP.PRG AZTEC GLOBAL ROUTINE 
EX.SUP.PRG: 
MOV. _—— R11, =( SP) 
Rig) -(SP) 
1.AM.NEX 
G CMD. SLOT, =(SP) 
000054 #54,-(SP) 
67 0000006 PC BLSMUL 
60 000050 0000006 #560 SND. ENVELOPE (RO) 
CMD. SLOT, (SP) 
000054 MOV #34, =(SP5 


0000006 BLSMUL 
000017 0000026 Wee SND ENVELOPE+2(RO) 
000001 0000026 188  #1,SND.ENVELOPE+2(RO) 


0000006 MOV L 

000054 #54,-(SP) 
0000006 J PC BLSMUL 

60 000360 0000026 #360, SND .ENVELOPE+2(RO) 
0000006 MO MD. SLOT, (SP) 
000054 #54,-(SP) 
0000006 PC BL SMUL 
000002 000003G #2. SND .ENVELOPE+3(RO) 
0000006 MOV CMD. SLOT, (SP) 
000054 MOV #54,-(SP) 
0000006 PC,BLSMUL 
0000006 0000046 CMD .REF , SND.ENVELOPE+4 (RO) 
900000 CHD. SLOF (SP) 


PC ,BLSMUL 
SND .ENVELOPE+6(RO) 


ZRCFA2 
v01.0 

000000 
000002 
000004 
000010 
000014 
000020 
000024 
000032 
000036 
000042 
000046 
000054 
000062 
000072 
000076 


7 

04 
10 
14 
20 
26 
32 
36 
ae 
50 
54 
60 
64 


SSSeeeseesss 
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pice 1% 
MISCELLANEOUS SECTIONS 8-Jul-1983 15:23: 3:33 VAX-11 Bliss-16 V3-555 Pope ¢ 
AZTEC GLOBAL ROUTINE 8-Jul-1983 14:44:20 SPIDERSUSERS: CLAKSHMANA.11REL. REALIZRC rt 4 


CMD. SLOT, (SP) : 2565 
#54,-(SP5 


oo 
== 
ro 


0000006 
000054 
0000006 


Fo. 


PC, BLSMUL 
Sub. ENVELOPE*10(RO) 
CMD. SLOT, (SP) 
#34 =(SP5 
SMUL 
SNB ENVELOPE+12(RO) 
(SP) 


2566 


S8228s 
DEVAN 
“uN 

BONRO 


=825 
“J aN 
BOSTE 


PC ,BLSMUL 
#2, SND. ENVELOPE+14 (RO) 
CMD. SLOT, (SP) 
#54,-(SP5 
PC ,BLSMUL 
SND. ENVELOPE+15(RO) 
CMD. SLOT, (SP) 
#54,=(SP5 


PC ,BLSMUL 
SND. a 


CMD.SLOT,¢ 
#34 = (SP) 


C,BLSMUL 
BYTE COUNT. SND .ENVELOPE+20(RO) 
CMD. SLOT, (SP) 
#54,-(SP5 
PC, BLSMUL 
SND. ENVELOPE +22(RO) 
CMD. SLOT, (SP) 
#54,-(SP5 


PC,BLSMUL 

BUF .DESCRPTR, SND. ENVELOPE +24 (RO) 
CMD. (SPS : 
54,=(SP5 

PC ,BLSMUL 

SND. ENVELOPE +26(RO) 
CMD. SLOT, (SP) 
54,—(SP5 

PC ,BLSMUL 

SND. ENVELOPE +30(RO) 
CMD. SLOT, (SP) 

#54,-(SP) 

PC,BLSMUL 

SND. ENVELOPE +32 (RO) 
CMD. SLOT, (SP) 
54,-(SP5 

PC ,BLSMUL 

SND. ENVELOPE +34 (RO) 
CMD. SLOT, (SP) 

#54,-(SP5 

PC, ,BLSMUL 

SND. ENVELOPE +36(RO) 
CMD. SLOT, (SP) 
54,=(SP5 

PC ,BLSMUL 

SND. ENVELOPE +40(RO) 
CMD. SLOT, (SP) 


Fo 
N 


oOo 
—— 


3 


~ 
seax> 


oo 
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012746 MOV #56 = (SP) 
00476 PC ,BLSMU 
SND. ENVELOPE +42(RO) 
CMD.SLOT, (SP) 
#34 ~(SP5 
SNé ENVELOPE *46(RO? 
CMD. SLOT, (SP) 
#54,-(SP) 
PC ,BLSMUL 
SND. ENVELOPE +46(RO) 
CMD. SLOT, (SP) 
#54,-(SP5 


PC ,BLSMUL 

SND. 7+ et Malad 
CMD.SLOT, (SP) 
#54,-(SP) 

PC ,BLSMUL 

SND. ENVELOPE +52(RO) 
CMD.SLOT,RO 

RO 

SEND.RING,RO 

#1 (RO) 
arces. ADDR, 64(SP) ; *,RC.REG 
64(SP) ,R ; RC.REG, TEMP 
PC,GET.CMD.SLOT 3 

#1,R1 : *, SSTMP2 

; *, SSTMP1 

; SSTMP 

; SSTMP1 

; SSTMP2 


BR 1$ 
000000v : PC REC. STATUS 
#70,SP 


000070 
(sP3+, R1 


z Routine Size: 249 words, Routine Base: Seana + 3204 
+ Maximum stack depth per invocation: 30 word 
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~N 
» 
= 
foal 
oF 


global routine SEND_DATA = 


'¢ 

FUNCTIONAL DESCRIPTION: 

SEND_DATA PROVIDES BUF ADDRESS AND SIZE TO THE DM CODE 
i PROGRAM FOR POSSIBLE READ, WRITE TO MEMORY. PARAMETERS 
NEEDED ARE BUF _LENGTH, H _SADD, E_SADD 

FORMAL PARAMETERS : 

IMPLICIT INPUTS : H_SADD, E_SADD, BUF LENGTH 

IMPLICIT OUTPUTS : RET_STATUS 

i 

i 
\o 


SIDE EFFECTS : 


begin 

local 

' THE INTERRUPT ROUTINE WILL SET THE FLAG CANCEL_TIMER WHEN CALLED. 
' CLEAR THE FLAG HERE TO INSURE THE DETECTION OF THE INTERRUPT. 


1 _AM_NEX = ZERO; 


} UQ PORT COMMAND ENVELOPE HEADER FIELD DEFINITION 
SND. ENVELOPE C.CMD_SLOT, MSG LENGTH] & $2_SED; 
SND_E € C. cm “SLOT, CRE EDIT = ONE; 

£.CMD- SLOT, MSG it32y : 
SND_ “ENVELOPE C. CMD “stor. CONN_IDJ = 
: DUP COMMAND ENVELOPE FIELD DEFINITION 


SND ENVELOPE C.CMD_SLOT, CMD_ ere CMD_REF ; 
MD- nee 


ox' 
2a 
mm 
~] 


on) 
nor 
<coc 
om 
urn 
NNN 
m 


i=) im) 
= 
n” 
oon 
td 
Sasa 
Bo8 


2" ‘s “ x unuu 


Time 
moma 
zz 
So jee 


meus 
ole Pe) 


! BYTE COUNT LOW WORD 
: E T HIGH WOR 
TR; ! BUFFER DESCRIPTOR WORD 0 
DESCRIPTOR WORD 1 


2D 
So 
rr 


nonnnnis 


i BUFFER DESCRIPTOR WORD 4 
i BUFFER DESCRIPTOR WORD 5 


mm 
DDDD 
Sooo 


cn 
SLOT, 


SND. "ENVELOPE MD~SLOT, 
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! SET THE OWNERSHIP BIT TO 1 WHICH GIVE THIS SLOT TO THE PORT. 
SEND_RING C.CMD_SLOT, OWN_BIT] = PORT_OWNED; 
! READ THE IP REGISTER TO STIMULATE PORT POLLING. 
TEMP = .RC25_ADDR CRCIP, RC_ALLI; 
! GET THE COMMAND SLOT NUMBER FOR NEXT COMMAND 
GET_CMD_SLOT QO: 
DELAY (1); 
CHECK THE END PACKET FOR GOOD STATUS 
return REC_STATUS (); ' RETURN THE STATUS 
end; 
.SBTTL SEND.DATA AZTEC GLOBAL ROUTINE 
SEND.DATA:: 
MOV R1,-(SP) 
=(SP) ,-(SP) 
0000006 1. AM.NEX 
0000006 MOV CMD. SLOT ,-(SP) 
000054 #54.-(SP) 
0000006 PC ,BLSMUL 
000034 0000006 #34, SND. ENVELOPE (RO) 
0000006 CMD. SLOT, (SP) 


000054 #54,-(SP) 


0000006 S PC ,BLSMUL 

000017 0000026 #17, SND. ENVELOPE+2(RO) 
000001 0000026 1SB #1,SND.ENVELOPE+2(RO) 
0000006 SP 


MO CMD. SLOT, ¢ 
000054 #54,-(SP5 
0000006 J PC .BLSMUL 
000360 0000026 #360, SND .ENVELOPE+2(RO) 
0000006 MOV CMD. SLOT, (SP) 
000054 #54.-(SP) 
PC ,BLSMUL 
60 000002 0000036 MOVB #2, SND. ENVELOPE+3(RO) 
esses 


LS=SS2e 
at IO 


PC ,BLSMUL 
CMD ..REF , SND.ENVELOPE+4 (RO) 
CMD. SLOT, (SP) 

#54.-(SP) 


PC ,BLSMUL 

SND. ENVELOPE +6(RO) 
CMD. SLOT, (SP) 
#54.-(SP5 


ooo 
par par Py 


NIRSESOSLRSESRoN 
sscess 


PC ,BLSMUL 

SND. ENVELOPE+10(RO) 
CMD. SLOT, (SP) 
54.=(SP) 

PC,BLSMUL 


oo 
—— 
mw 


000000 
000002 
000004 
000010 
000014 
000020 
000024 
000032 
000036 
000042 
000046 
000054 
000062 
000072 
0000 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
000200 
000 
000210 
000214 
000220 


: 





111 


SEQ 138 
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SND .ENVELOPE+12(RO) 
CMD. SLOT, (SP) : 2652 
#34 =(SP5 


SMUL 
Ae SND. ENVELOPE*14(RO) 
CMD. SLOT : 2653 
bons <5 
ee 1 SAUL 
SND. ENVELOPE+15 (RO) 
CMD. SLOT, (SP) 
54,-(SP) 
PC ,BLSMUL 
SND. ENVELOPE+16(RO) 
CMD. SLOT, (SP) : 2655 
#96 ,=(SP5 
BLSMUL 
BvfEL COUNT, SND. ENVELOPE +20(RO) 
CMD. SLOT, (SP) : 2656 
#54,-(SP) 
PC ,BLSMUL 
SND. ENVELOPE+22(RO) 
CMD. SLOT, (SP) 
54,=(SP5 
PC ,BLSMUL 
BUF .DESCRPTR; SND. ENVELOPE *24 (RO) 
#54,-(SP) 
PC BLSMUL 
SND. ENVELOPE +26(RO) 
CMD. SLOT, (SP) 
54,-(SP) 


2654 


2657 


2658 


2659 


PC ,BLSMUL 
SND. ENVELOPE +30(RO) 
MD. SLOT, (SP) 

SP) 
PC ,BLSMUL 
SND. ENVELOPE +32 (RO) 
CMD. SLOT, (SP) 
#54.-(SP5 
PC ,BLS$MUL 
SND. ENVELOPE +34 (RO) 
CMD. SLOT, (SP) 
#54,-(SP) 
PC ,BLSMUL 
SND. ENVELOPE +36 (RO) 
CMD.SLOT,RO 


2660 


RO 
SEND.RING,RO 
#100000,2¢R0) 
@RC25.ADDR,50(SP) ; *,RC.REG 


SP) ,R ; RC.REG, TEMP 
PC,GET.CMD.SLOT ; 
#1,R1 ; *, SSTMP2 


0000006 LSDLY.RO : ©, SSTMPI 
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000052 : 52(SP) 3 SSTMP 
33 ; SSTMP1 


; SSTMP2 


PC REC. STATUS 
#54,SP 
(SP5+, R1 


3: Routine Size: 201 words, Routine Base: ABSCODE + 4166 
+ Maximum stack depth per invocation: 24 words 


2682 
2683 : 





o 
° 
2 
° 
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- 
. 
e 
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° 
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a 
2 
° 
eo 
7 
e 
= 
° 
° 
o 
a 
° 
o 
a 
. 
° 
« 
e 
© 
° 
. 
° 
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e 
° 
° 
e 
° 
° 
° 
° 
e 
2 
° 
. 
e 
e 
° 
a 
° 
© 
° 
° 
° 
. 
° 
. 
° 
J 
e 
a 
° 
. 
e 
e 
e 
. 
oe 
[ 
° 
© 
° 
2 
e 
e 
6 
° 
e 
. 
e 
. 
e 
° 
e 
e 
o 
° 
© 
a 
° 
° 
. 
° 
2 
e 
8 
° 
. 
° 
e 
eS 
. 
2 
° 
° 
° 
e 
a 
° 
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global routine REC_DATA = 


44 

i FUNCTION DESCRIPTION : 
THE REMOTE PROGRAM WRITES DATA INTO THE BUFFER UP TO THE AMOUNT 
SPECIFIED BY THE BYTE COUNT AND RETURNS STATUS. THE STATUS IS 
RECEIVED BY THE USE OF THIS COMMAND. BUF_DESCRPTR POINTS TO 
THE WORD RECEIVED DM CODE. 

i FORMAL PARAMETERS : 

i IMPLICIT INPUTS : BUF_DESCRPTR 

i IMPLICIT OUTPUTS : RET_STATUS 

i SIDE EFFECTS : 
begin 
local 


' THE INTERRUPT ROUTINE WILL SET THE FLAG CANCEL_TIMER WHEN CALLED. 
' ; CLEAR THE FLAG HERE TO INSURE THE DETECTION OF THE INTERRUPT. 


[_AM_NEX = ZERO; 


: , Ua PORT COMMAND ENVELOPE HEADER FIELD DEFINITION 


SND ENVELOPE C.CMD_SLOT, MSG oe SZ_RED; 
“SLOT, CREDIT 132 = ONE; 


SND_ “ENVELOPE C.CMD_SLOT, CONN_IDJ = 2; 

; DUP COMMAND ENVELOPE FIELD DEFINITION 

SND. ENVELOPE C.CMD_SLOT, CMD_LREFJ = .CMD_REF; 
- CMD = ZER 0; 


: ore ~~ LOW WORD 


oN. ~ ENVELOPE 


A... 140 
pope 3 53 
TIREL.REALIZRCFA (20 
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: SET THE OWNERSHIP BIT TO 1 WHICH GIVE THIS SLOT TO THE PORT. 

SEND_RING C.CMD_SLOT, OWN_BITJ = PORT_OWNED; 

: READ THE IP REGISTER TO STIMULATE PORT POLLING. 

TEMP = .RC25_ADDR CRCIP, RC_ALLJ; 

: GET THE COMMAND SLOT NUMBER FOR NEXT COMMAND 

GET_CMD_SLOT QO; 

DELAY (1); 

: CHECK THE END PACKET FOR GOOD STATUS 

++ ge REC_STATUS (); ! RETURN THE STATUS 
-SBTTL REC.DATA AZTEC GLOBAL ROUTINE 


REC.DATA:: 
MOV R1,-(SP) 
=(SP) ,-(SP) 


1.AM.NEX 
CMD.SLOT,-(SP) 
#54,-(SP) 


0000006 PC ,BL$MUL 

000034 0000006 MOV #34, SND. ENVELOPE (RO) 
0000006 CMD. SLOT, (SP) 

000054 #54,-(SP) 


0000006 JS PC,BLSMUL 

000017 0000026 #17, SND. ENVELOPE+2(RO) 
000001 0000026 #1,SND..ENVELOPE+2(RO) 
0000006 CMD. SLOT, (SP) 

000054 #54.-(SP) 


0000006 J PC BLSMUL 
000360 0000026 #360, SND.ENVELOPE+2(RO) 
0000006 MO CHD. SLOT (SP) 


ZRCFA2 
v01.0 

000000 
000002 
000004 
000010 
000014 
000020 
000024 
000032 
000036 
000042 
000046 
000054 
000062 
000072 
000076 
000104 
000110 
000114 


PC ,BLSMUL 

#2. SND .ENVELOPE+3(RO) 
CMD. SLOT, (SP) 
#54,-(SP) 


mr 


PC ,BLSMUL 
CMD. .REF, SND.ENVELOPE+4 ‘RO) 
CHD. SLOT (SP) 


mune 


PC ,BLSMUL 

SND. ENVELOPE +6(RO) 
CMD. SLOT, (SP) 
#54.-(SP5 

PC ,BLSMUL 

SND. ENVELOPE +10(RO) 
CMD. SLOT, (SP) 
#54.~(SP5 


PC ,BLSMUL 


3 BS et tw 
o 


SsSsessesssssss 
SRoRS 
Seesenee 

Nisa NS 


5 





MISCELLANEOUS SECTIONS 
AZTEC GLOBAL ROUTINE 


7 0000006 

000005 0000146 
000054 
0000006 
0000156 
0000006 

000054 
7 0000006 
000016G 
000054 
0000006 
0000006 0000206 
0000006 


0000006 


100000 000002 

0000006 000050 
000050 
000000V 

000001 


0000006 


M11 


8-Jul-1983 1 
88-Jul-1983 1 


SND .ENVELOPE+12(RO) 
CMD. SLOT, (SP) 
54,=(SP5 

PC ,BLSMUL 

#5. SND. ENVELOPE+14 (RO) 
CMD. SLOT, (SP) 

#54,-(SP5 

PC ,BLS$MUL 

SND. ENVELOPE+15 (RO) 
CMD. SLOT, (SP) 
54,=(SP) 

PC ,BLSMUL 

SND .ENVELOPE*+16(RO) 


PC ,BLSMUL 
BYTE. COUNT ,SND.ENVELOPE+20(RO) 


CMD. SLOT, (SP) 
#54,~(SP) 


PC BLSMUL 

SND. ENVELOPE+22 (RO) 
CMD. SLOT, (SP) 
54,=(SP) 


PC ,BLSMUL 
REE at paateaaaaati aaa 


CMD. SLOT 
54,—(SP) 
PC,BLSMUL 
SND. ENVELOPE+26(RO) 
CMD. SLOT, (SP) 
#54,=(SP) 
PC,BLSMUL 
SND. ENVELOPE +30(RO) 
CMD. SLOT, (SP) 
54,-(SP5 
PC,BLSMUL 
SND. ENVELOPE +32 (RO) 


PC ,BLSMUL 
SND. ENVELOPE +34 (RO) 
CMD.SLOT, (SP) 


= 
@ 


PC ,BL$MUL 
SND. ENVELOPE +36 (RO) 
+ ie T,RO 


RO 
SEND.RING,RO 


#100000, 2(RO) 


@RC25. ADDR, 50(SP) 


ie 
PC,GET.CMD.SLOT 
#1,R1 


4$ 
LSDLY,RO 
3$ 


VAX-11 Bliss=-16 V3-555 
SPIDERSUSERS : CLAKSHMANA. 


; *,RC.REG 
; RC.REG, TEMP 


; *, SSTMP2 
; *,SSTMP1 


SEO 142 
page 55 
T1IREL..REALIZRCFA (20 


2729 
2730 
2731 
2732 
2733 


2734 
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000052 : 52(SP) : SSTMP 
33 ; SSTMP1 


; SSTMP2 


BR "§ 
000000Vv : PC,REC.STATUS 
#54,SP 
(SP5+,R1 
PC 


000054 


; Routine Size: 201 words, Routine Base: ABSCODE + 5010 
: Maximum stack depth per invocation: 24 words 


2759 
2760 ! 
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global routine SET_CNTLR_CHAR = 


a5 
oF 


144 

t FUNCTION DESCRIPTION : 
THE SET CONTROLLER CHARACTER COMMAND IS USED TO SET HOST SETTABLE 

UNI 8 HOSE UNIT CHARACTERISTICS THAT 

ARE ESSENTIAL ROPER 5 DRIVER OPERATION. THIS COMMAND 

NEVER ALTERS THE UNIT'S STATE CUNIT-ONLINE™, “UNIT-AVAILABLE", 


i FORMAL PARAMETERS : 
- NONE - 


IMPLICIT INPUTS : 
INPLICIT OUTPUTS : 
- NONE - 


i COMPLETEDTION CODES : 
RET_STATUS : RETURN STATUS PASSES BACK TO THE CALLING ROUTINE 


i SIDE EFFECT 
ANY PREVIOUSLY DEFINED CONTROLLER CHARACTERISTICS WILL POSSIBLY 
BE ALTERED AFTERE EXECUTION OF THEIS COMMAND. 


er te te ee ee Te 


begin 
local 


'‘ 
UQ PORT COMMAND ENVELOPE HEADER FIELD DEFINITION 


SND_ENVELOPE C.CMD_SLOT, MSG LENGTH) = SZ_SCC; : LOAD MESSAGE LENGTH 
E FS -CMD-SLOT, CREDITS] = “ONE; ! LOAD CREDIT SIZE 
OPE C.CMD_SLOT, MSG_TYPE] = 0; : MESSAGE TYPE ‘SEQUENTIAL * 
SND-ENVELOPE C.CMD_SLOT, CONR_ID) = “0; ! DEFINE CONNECTION ID ‘DUP’ 


epee GENERIC COMMAND ENVELOPE FIELD DEFINITION 


SND_ENVELOPE [.CMD_SLOT, CMD_LREFJ LOAD COMMAND REFERENCE # 
NVELOPE MD-SL cmp PUcED 
: 
J 


D 
a COMMAND OPC 


C T, vDJ : 
SND~ ENVELOPE CMD-SLOT, MODIFIER ! DEFINE CMD MODIFIERS 


SND_ENVELOPE (€.CMD_SLOT, ! MSCP_ VERSION 
L ! CONTROLLER GLAGS 
i HOST TIMEOUT VALUE 
SERVED 
ME AND DATE WORD 0 
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SEQ 145 
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SND_ENVELOPE C.CMD_SLOT, T$D_1 = ZERO: | ! TIME AND DATE WORD 1 
-CMD-SLOT, SD one) = ZERO: | TIME AND DATE WORD 
.CMD-SLOT, ZERO: IME AND DATE WORD 
= CMD" SLOT, top LO ' CNTL DEP PARAMETER LO WORD 
SND_ENVELOPE =CMD~SLOT, EDP HI] = = ZERO; i €NTL DEP PARAMETER HI WORD 
i SET THE OWNERSHIP BIT TO 1 WHICH GIVE THIS SLOT TO THE PORT. 
SEND_RING [.CMD_SLOT, OWN_BIT] = PORT_OWNED; 
READ THE IP REGISTER TO STIMULATE PORT POLLING. 
TEMP = .RC25_ADDR CRCIP, RC_ALLI; 
; GET THE COMMAND SLOT NUMBER FOR NEXT COMMAND 
GET_CMD_SLOT QO; 
DELAY (1); 
CHECK THE END PACKET FOR GOOD STATUS 


return REC_STATUS (); ! RETURN THE STATUS 
end; 


.SBTTL SET.CNTLR.CHAR AZTEC GLOBAL ROUTINE 
SET.CNTLR. CHAR: : 
MOV 1,-(SP) : 
-(SP) ,=(SP) 
0000006 CMD. SLOT,=(SP) ; 
000054 #34. =(SP5 
0000006 BLSMUL 
000040 0000006 #6 SND ENVELOPE (RO) 
MD. SLOT, (SP) 
000054 #54.-(SP5 
0000006 JS PC BLSMUL 
000017 0000026 ies SND. ENVELOPE +2(RO) 
000001 0000026 188  #1,SND.ENVELOPE+2(RO) 
0000006 MOV CMD. SLOT 
000054 MOV #54,~(SP) 
767 0000006 S PC ,BLSMUL 
60 000360 0000026 #360, SND .ENVELOPE+2(RO) 
MOV CMD. SLOT, (SP) 
000054 #54,~(SP) 
0000006 J PC ,BLSMUL 
060 0000036 SND. ENVELOPE+3(RO) 
MOV CMD. SLOT, (SP) 
#54,=(SP) 


td 


oo 
— 
w 


3 


PC ,BLSMUL 
CMD ..REF , SND. ENVELOPE+4 (RO) 
CMD. SLOT, (SP) 
54,-(SP) 
PC ,BLSMUL 
SND. ENVELOPE +6(RO) 
CMD. SLOT, (SP) 
#54.-(SP5 


S ss 


So 


ed ed ed ot od ot ot = ot ot I 


SSsssssssssess 
SUSNSHESRBESRE 


ooo 
== 
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SEQ 146 


Pa 59 
C GLOBAL ROUTINE 88-Jul-1983 1 SPIDERSUSERS: CLAKSHMANA. 11REL.REALIZRCPA (21 


BLSMUL 
CNBeE ENVELOPE *10(RO) 
CMD.SLOT, ¢ ; 2806 
#34 =(SP5 


onBe ENVELOPE*+12(RO) 
CMD.SLOT, (SP) 
#54,-(SP5 


PC BL SMUL 
#4, SND. ENVELOPE+14 (RO) 
1 Sg al 


o7( 


PC,BLSMUL 

SND. ENVELOPE+15 (RO) 

CMD. SLOT, (SP) 

#54,-(SP) 

PC ,BLSMUL 

SND. ENVELOPE+16(RO) 
(SP) 


SS2S8SS558 
NSN NISS 

FARIS. 
NOADON 


mow 


PC ,BLSMUL 

SND. ENVELOPE+20(RO) 
CMD. SLOT, (SP) 
54,=(SP) 

PC ,BLSMUL 

SND. ENVELOPE +22(RO) 

CMD , (SP) 


ssee 
— =) 
SN 

on 
Saxe 


oo 
par pars 
Lat doa 


$3 
Sea 


PC,BLSMUL 

SND. ENVELOPE +24 (RO) 
CMD. SLOT, (SP) 
#54,-(SP5 
PC,BLSMUL 

SND .ENVELOPE+26(RO) 


egeeesee 
wi ve 
st 


PC ,BLSMUL 

SND. ENVELOPE+30(RO) 
CMD. SLOT, (SP) 
#54.-(SP) 


esse 
MEMO 
™~ 


PC BLSMUL 

SND. ENVELOPE +32 (RO) 

CMD. SLOT, (SP) 
4.=(SP) 

PC,BLSMUL 

SND. ENVELOPE +34 (RO) 

CMD. SLOT, (SP) 
54,-(SP) 

PC, BLSMUL 

SND . ENVELOPE +36 (RO) 

CMD. SLOT, (SP) 
54,-(SP5 

PC ,BLSMUL 

SND. ENVELOPE +40(RO) 

CMD. SLOT, (SP) 

#54.-(SP5 

PC,BLSMUL 





ZRCFA2 MISCELLANEOUS SECTIONS 
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000540 005060 0000426 
0000006 


007411 1$: 


005066 000056 2s: 


34 
000640 062706 000060 


; Routine Size: 212 words Routine Base: 
> Maximum stack depth per invocation: 26 words 


H 2842 
3 2843 ! 


3$: 
000766 
004767 000000V 4$: 


E 12 
8-Jul-1983 15:23:25 
8-Jul-1983 14:44:20 


SND .ENVELOPE+42(RO) 
CMD RO 


RO 

SEND.RING,RO 
#100000,2(RO) 
@RC25 ADDR 54 (SP) 


PC.GET.CHD.SLOT 


8 

PC,REC. STATUS 
#60,SP 
(SP5+,R1 

PC 


ABSCODE + 5632 


SEQ 147 
VAX-11 Bliss-16 V3-555 Page 60 
SPIDERSUSERS: CLAKSHMANA.11REL.REALIZRCFA (21 


3 2826 
3 *,RC.REG 2830 
3 RC.REG, TEMP 

3 2834 
3 *,SSTMP2 2836 
3s *,SSTMP1 

3; SSTMP 

3 SSTMP1 

3: SSTMP2 

3 2840 
é 2761 


Pd 
zD 
oO 
bes 

og 


SEQ 148 
MISCELLANEOUS SECTIONS 725 VAX-11 Bliss-16 V3-555 P 1 
AZTEC GLOBAL ROUTINE £40130 SPIDERSUSERS : CLAKSHMANA. 11REL.REALIZRCFA (32 


global routine AVAILABLE = 


14+ 
Reais ~ ee DESCRIPTION : 

THE AVAIL ay} COMMAND 1S yee TO IT-ABAILABLE WHEN 
ALL ov ING a FOR THE UNIT ARE COMPLETED. 
IF THE ASPIN-DOWN * MODIFIER IS SPEC THE DISK SPINS DOWN 
AND ITS HEADS ARE UNLOADED. 


PARAMETERS : 
INPUTS : 
FECTS : 


& 


t 

UQ PORT COMMAND ENVELOPE HEADER FIELD DEFINITION 

j SND_ENVELOPE ({.CMD_SLOT, prt pease = SZ_AVL; : LOAD MESSAGE LENGTH 
SND_ ENVELOPE C.CMD— SLOT, nevi TSJ_= ONE; : LOAD CREDIT SIZE. 
SND_ENVELOPE C.CMD_SLOT, & TYPE). = 0; : t MESSAGE TYPE ‘SEQUENTIAL 
SND_ENVELOPE C.CMD_ “SLOT, nSG,F ID] = 0; DEFINE CONNECTION ID ‘DUP 

| GENERIC COMMAND ENVELOPE FIELD DEFINITION 


SND_ENVELOPE C.CMD “Stor CMD_ Laer? CMD_REF ; 
SND_ENVELOPE C.CMD-SLOT, CMD~HREF RO; 


SNDTENVELOPE E OT, ZERO: i 
SND~ENVELOPE C. i DEFINE CMD MODIFIERS 
i SET THE OWNERSHIP BIT 10 1 WHICH GIVE THIS SLOT TO THE PORT. 
SEND_RING C.CMD_SLOT, OWN_BIT] = PORT_OWNED; 
| READ THE IP REGISTER TO STIMULATE PORT POLLING. 
TEMP = .RC25_ADDR CRCIP, RC_ALLJ; 
GET THE COMMAND SLOT NUMBER FOR NEXT COMMAND 
GET_CMD_SLOT (); 


DELAY (1); 
CHECK THE END PACKET FOR GOOD STATUS 
¥ return REC_STATUS (); ! RETURN THE STATUS 
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G 12 


SEQ 149 
MISCELLANEOUS SECTIONS et ae BB FY 15:23:25 VAX=-11 Bliss=16 V3-555 page 62 
AZTEC GLOBAL ROUTINE B-Jul-1983 14:44:20 SPIDERSUSERS : CLAKSHMANA. 11REL .REALIZRCFA (22 


end; 


-SBTTL AVAILABLE AZTEC GLOBAL ROUTINE 
canoes | ‘ 


PC ,BLSMUL 
#14, SND. ENVELOPE (RO) 
CMD. SLOT, (SP) 
#36 ,=(SP5 
C,BLSMUL 
aie SND. ENVELOPE 2(RO) 
#1, SND .ENVELOPE+2(R 
0000006 CMD. SLOT, (SP) 
000054 #36 =(SP5 
BLSMUL 
AT SND . ENVELOPE +2(RO) 
CMD. SLOT, (SP) 
000054 #54,-(SP) 
7% PC, BLSMUL 
060 0000036 Sh ENVELOPE®3(RO) 
0000006 MOV CMD. SLOT, (SP) 
000054 ; #54,~(SP) 
PC ,BLSMUL 
0000006 0000046 CMD REF , SND.ENVELOPE+4 (RO) 
0000006 CMD. SLOT, (SP) 
000054 MO’! #54,-(SP) 
0000006 PC ,BLSMUL 
0000066 SND. ENVELOPE +6 (RO) 
0000006 CMD. (SP) 
000054 MO #54,-(SP5 
0000006 PC BLSMUL 
0000006 0000106 UNIT. SND. ENVELOPE +10(RO) 
0000006 CMD. SLOT, (SP) 
000054 MOV #54.~(SP5 
0000006 PC ,BLSMUL 
000012G SND. ENVELOPE +12(RO) 
0000006 SLOT, (SP) 
000054 #54,-(SP) 
0000006 PC ,BLSMUL 
000010 0000146 #10, SND. ENVELOPE+14 (RO) 
G MOV CMD. SLOT, (SP) 
000054 #54.-(SP5 
0000006 PC ,BLSMUL 
000015G SND. ENVELOPE+15 (RO) 
0000006 MD. SLOT, (SP) 
000054 #54,=(SP5 
0000006 PC .BLSMUL 
000001 0000166 MO #1. SND. ENVELOPE +16(RO) 
0000006 MO CMD RO 


000072 
000100 
000104 
000110 
000114 
000120 
000124 
000130 
000134 


ed eh ed a teh wed 8 


S 


S358 


Se 


oon3a 
NANSISSNIVANS 
seas seaaeae 
AXAOSNAOGOONAOON 


3S 


Ss-ea5 
— — — 
= 
Sssax 


$5 
ss 


0000006 
100000 000002 


So 
wv 
S 
a 
So 





ZRCFA2 MISCELLANEOUS SECTIONS 
v01.0 AZTEC GLOBAL ROUTINE 
000332 017766 000030 

GO08eS BGA BNR 

000350 012701 tat 

000354 001411 1$: 
000356 016700 0000006 

000362 001404 

000364 005066 000032 2s: 
000370 005300 

000372 001374 

000374 005301 3$ 
000376 000766 

000400 004767 000000V 4$: 
000404 062706 000034 

000410 012601 

000412 7 

: Routine Size: 134 words, Routine Base: 

: Maximum stack depth per invocation: 16 words 


2902 
2903 ! 


RTS 


H 12 


But 1983 


agate 
MD.SLOT 


15:23: 
14:46: 


PC REC. STATUS 
#34,SP 
(SP5+,R1 

PC 


ABSCODE + 6502 


SEQ 1 
VAX-11 Bliss-16 V3-555 e 
LO IDERSUSERS: CLAKSHMANA. 11REL.REALIJZRCPA ( 
: achheltfow — 
aie 893 
3 *,SSTMP2 896 
3 *,SSTMP1 
3 SSTMP 
3; SSTMP1 
3 SSTMP2 
3 2900 
$ 2844 
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SEQ 151 
MISCELLANEOUS SECTIONS VAX-11 Bliss-16 V3-555 Page 64 
AZTEC GLOBAL ROUTINE SPIDERSUSERS : CLAKSHMANA. 11REL.REALIZRCPA (23 


global routine ON_LINE = 


eo 


i ‘heeocde ~'y DESCRIPTION : 4 
THE INE C ee init SET 


OMMAND IS USED T 

HOST SETTABL IT ¢ TAIN THOSE UNIT 
CHARACTERISTICS THAT ARE ESSEN OPER CLASS DRIVER 
OPERATION. THE UNIT IS ne SSARY, AND IS HEADS 

LOADED PRIOR TO RETURNING COMMAND'S END MESSAGE. 
HOST SETTABLE CHARACTERISTICS C0 D. wee 
SETTABLE CHARACTERISTICS ARE_ SET AFTER UNIT HAS BEEN 
SUCCESSFULLY SPUN-UP AND ANY OT ity, CHECKS HAVE SUCCEDED. 


i FORMAL PARAMETERS : 
- NONE - 


IMPLICIT INPUTS : 
INPLICIT OUTPUTS : 
= NONE - 


i COMPLETEDTION CODES : 
RET_STATUS : RETURN STATUS PASSES BACK TO THE CALLING ROUTINE 


i SIDE EFFECTS 
ANY PREVIOUSLY DEFINED CONTROLLER CHARACTERISTICS WILL POSSIBLY 
BE ALTERED AFTERE EXECUTION OF THEIS COMMAND. 


begin 
local 


‘ 
: UQ PORT COMMAND ENVELOPE HEADER FIELD DEFINITION 


SND_ENVELOPE C.CMD_SLOT, MSG a SZ_ONL; : LOAD MESSAGE LENGTH 
ND_E — C.CMD_SLOT, CREDITS Ee; OAD CREDIT SIZE 
Ss EL SL OT; MSG TPE) = 0; : MESSAGE TYPE ‘SEQUENTIAL* 
SND_~ENVELOPE C.CMD-SLOT, CONN_IDJ = 0; ! DEFINE CONNECTION ID ‘DUP* 


J 
i i mscP GENERIC COMMAND ENVELOPE FIELD DEFINITION 
SND_ENVELOPE [.CMD_SLOT, CMD_ CMD_REF; {LOAD COMMAND REFERENCE # 
SND ENVELOPE C.CMD-SLOT, CMD HREF RO i ZERO HI ORDER CMD REF # 
ONT: ' SELECTED UNIT 
0; i NOT USED IN DUP IMPLIMENT. 
: DEFINE COMMAND OPCODE 


' CMD RSVD 0; i NOT USED 
SND“ENVELOPE £.CMD"SLOT, MODIFIER ERO: i DEFINE CMD MODIFIERS 


COMMAND SPECIFIC COMMAND ENVELOPE FIELD DEFINITION 


SND_ENVELOPE [.CMD_SLOT, RSVS$DJ = gERO; : RESERVED 
SND-ENVELOPE C.CMD_-SLOT, UNT_FLAGS ZERO; ! UNIT FLAG FIELD 


J 12 


SEQ 152 
ZRCFA2 MISCELLANEOUS SECTIONS 8-Jul=1 : VAX-11 Bliss-16 V3-555 page 65 
v01.0 AZTEC GLOBAL ROUTINE 8-Jul-1 : SPIDERSUSERS : CLAKSHMANA. 11REL .REALIJZRCFA (23 


CMD SLOT. RS RSVD$O] = ZERO; 
i RESERVED FIELD 
i RESERVED FIELD 
i RESERVED FIELD 
' DEVICE DEPENDENT PARAMETER 
SND-ENVELOPE £.C ; i DEVICE DEPENDENT PARAMETER 
SND-ENVELOPE £.CMD_SLOT, ere = ZERO; | SHADOW UNIT 
SND_ENVELOPE C.CMD"SLOT. = ZERO; ! COPY SPEED 
! SET THE OWNERSHIP BIT TO 1 mace GIVE THIS SLOT TO THE PORT. 
SEND_RING [.CMD_SLOT, OWN_B1T] = PORT_OWNED; 
: READ THE IP REGISTER TO STIMULATE PORT POLLING. 
TEMP = .RC25_ADDR CRCIP, RC_ALLJ; 
GET THE COMMAND SLOT NUMBER FOR NEXT COMMAND 
GET_CMD_SLOT QO: 


‘ 
DELAY (1); 
CHECK THE END PACKET FOR GOOD STATUS 


return REC_STATUS (); ' RETURN THE STATUS 
end; 


-SBTTL ON.LINE AZTEC GLOBAL ROUTINE 
010146 ON.LINE:: coms 


024646 Ri eps -(SP) 
016746 0000006 
000054 


0000006 PC,BL 
000044 0000006 Hid. SND CENVELOPE (RO) 
CMD. SLOT, (SP) 
000054 MOV #54 =(SP) 
0000006 BLSMUL 
000017 0000026 Wii's SND. ENVELOPE +2(RO) 
000001 0000026 #1, SND. ENVELOPE +2(RO) 
0000006 (SP) 
000054 #54,-(SP) 
0009006 S PC BL SMUL 
000360 0000026 #360, SND .ENVELOPE+2(RO) 
0000006 MOV CMD. SLOT, (SP) 
54,-(SP) 
PC ,BLSMUL 
SND. ENVELOPE +3(RO) 
CMD.SLOT, (SP) 
000054 #54.-(SP) 
000000 


G PC ,BLSMUL 
0000006 0000046 CMD ..REF , SND.ENVELOPE +4 (RO) 


BEEEEEEEE 
KEPBRSREN 
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MISCELLANEOUS SECTIONS 
AZTEC GLOBAL ROUTINE 
0000006 

000054 

0000006 

0000066 

0000006 

000054 


767 0000006 
60 0000006 0000106 


000054 
767 0000006 
060 0000126 
0000006 
000054 
0000006 
000011 000014G 
0000006 
000054 
0000156 
0000006 
000054 
0000006 
0000166 
0000006 
000054 
0G 


K 12 


8-Jul-198 
8-Jul-198 


CMD. SLOT, (SP) 
#54,-(SP5 


Win 
Ra 
er 
ew 


PC ,BLSMUL 
SND. ENVELOPE +6 (RO) 
CMD. SLOT, (SP) 
54,=(SP5 
PC .BLSMUL 
UNIT, SND .ENVELOPE+10(RO) 
CMD. SLOT, (SP) 
#54,-(SP5 


PC, BLSMUL 

SND. ENVELOPE+12(RO) 
CMD. SLOT, (SP) 
54,=(SP5 

PC,BL 

AT SND. ENVELOPE+14(RO) 
CMD. SLOT, (SP) 
#54,-(SP5 

PC ,BLSMUL 

SND. ENVELOPE+15 (RO) 

CMD. SLOT, (SP) 

#54,-(SP) 

PC ,BLSMUL 

SND. ENVELOPE+16(RO) 

CMD. SLOT, (SP) 

#54,~(SP5 

PC,BLSMUL 

SND. ENVELOPE+20(RO) 

CMD. SLOT, (SP) 

#54,-(SP) 

PC, ,BLSMUL 

SND. ENVELOPE+22(RO) 

CMD. SLOT, (SP) 
54,-(SP) 

PC ,BLSMUL 

SND. ENVELOPE +24 (RO) 

CMD. SLOT, (SP) 

#54,~(SP) 

PC ,BLSMUL 

SND. ENVELOPE+26 (RO) 

CMD. SLOT, (SP) 

#54,=(SP) 

PC ,BLSMUL 

SND. ENVELOPE +30(RO) 

CMD. SLOT, (SP) 

#54 

PC,BLSMU 

SND. ENVELOPE +32 (RO) 

CMD. SLOT, (SP) 
54,-(SP) 

PC ,BLSMUL 

SND. ENVELOPE +34 (RO) 
CMD. SLOT, (SP) 

#34 = (SP) 


PC ,BLSMUL 
SND. ENVELOPE36(RO) 
CMD.SLOT, (SP 


WISI BLEE IVER ses nea eta 8 
; 2950 
: 2951 
3 2952 
: 2953 
; 2954 
: 2955 
; 2959 
: 2960 
: 2961 
: 2962 
: 2963 
: 2964 
; 2965 
3 2966 


L 12 


ZRCFA2 MISCELLANEOUS SECTIONS 8-Jul-1983 
v01.0 AZTEC GLOBAL ROUTINE 8-Jul-1983 


012746 000054 MOV #54,-(SP) 
004767 0000006 PC ,BLSMUL 
SND. ENVELOPE+40(RO) 
CMD. SLOT, (SP) 
54,=(SP) 
PC ,BLSMUL 
SND. ENVELOPE+42(RO) 
CMD. SLOT, (SP) 
54,=(SP5 
PC ,BLSMUL 
SND. ENVELOPE +44 (RO) 
CMD. SLOT (SP) 


=(S 


SEQ 154 
1 VAX-11 Bliss-16 V3-555 pone 67 
1 SPIDERSUSERS : CLAKSHMANA. 11REL..REALIZRCFA (23 


PC ,BLSMUL 
SND. ENVELOPE +46(RO) 
CMD RO 


e e 


RO 

SEND.RING,RO 

#100000,2(R 

Ose Neen ater? ; *,RC.REG 


(SP) .R ; RC.REG, TEMP 
PC,GET.CMD.SLOT 3 
#1,R1 ; *,SSTMP2 


; *,SSTMP1 
; SSTMP 

; SSTMP1 

; SSTMP2 


BR 1$ 
000000V : PC,REC.STATUS 
000064 #64 ,SP 


(SP)+,R1 
PC 


3 Routine Size: 229 words, Routine Base: ABSCODE + 7116 
: Maximum stack depth per invocation: 28 words 


2991 
2992 ! 
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SEQ 155 
MISCELLANEOUS SECTIONS 8-Jul-1983 15:23:25 VAX-11 Bliss=-16 V3-555 Pa 68 
AZTEC GLOBAL ROUTINE B-Jul-1983 14:44:20 SPIDERSUSERS : CLAKSHMANA. 11REL .REALIZRCFA (24 


949 lobal routine READ_CMD = 
: {FUNCTIONAL DESCRIPTION : 

THE READ COMMAND IS USED TO READ FROM THE UNIT AND TRANSFERRED 
TO THE HOST BUFFER. 


t FORMAL PARAMETERS : 
NONE - 


IMPLICIT INPUTS : 
INPLICIT OUTPUTS : 
= NONE - 


i COMPLETEDTION CODES : 
RET_STATUS : RETURN STATUS PASSES BACK TO THE CALLING ROUTINE 


i SIDE og Be 


= 
begin 


local 
TEMP; 


= PORT COMMAND ENVELOPE HEADER FIELD DEFINITION 


SND_ENVELOPE C.CMD_SLOT, MSG a SZ_RD; : LOAD MESSAGE LENGTH 
SND_ENVELOPE C.CMD_SLOT, CREDIT ONE; Noon CREDIT SIZE 
SND_ENVELOPE C.CMD_SLOT, Yee = 0; ! MESSA 6 7 YPE 

SND_ENVELOPE C.CMD_SLOT, CONN_IDJ = 0; i DEFINE CONNECTION ID 


7 _— GENERIC COMMAND ENVELOPE FIELD DEFINITION 


SND_ENVELOPE (£.CMD_SLOT, -CMD_REF; !LOAD COMMAND REFERENCE : 
OT, CMD_HREF ZERO; ! ZERO HI ORDER CMD REF # 
eUNIT; ! SELECTED UNIT 
ZERO; ! NOT USED IN DUP _IMPLIMENT. 
oP RD; ! DEFINE COMMAND OPCODE 


» UQRSVD] = Z : 
° MODIFIER) = ZERO: ! DEFINE CMD MODIFIERS 
home SPECIFIC COMMAND ” ENVELOPE FIELD DEFINITION 
SND ~ENVELOPE -CMD_SLOT, BLO_CNTJ Bre COUNT; | ! BYTE COUNT ~~ WORD 


0; OUNT HIGH WOR 
: BUFFER’ DESCRIBTOR FIELD 


zz 
on: 
st 


ERO; 
ERO: 
ER 
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N 12 
zac ae RE tin eeu nog 15:23:25 VAX=11 Bliss=16 v3-555 Page "9 
° ~Jul-1983 14:44:20 SPIDERSUSERS: CLAKSHMANA.11REL.REALIZRCFA (24 
SET THE OWNERSHIP BIT TO 1 WHICH GIVE THIS SLOT TO THE PORT. 
SEND_RING C.CMD_SLOT, OWN_BIT] = PORT_OWNED; 
: READ THE IP REGISTER TO STIMULATE PORT POLLING. 
TEMP = .RC25_ADDR CRCIP, RC_ALLI; 
: GET THE COMMAND SLOT NUMBER FOR NEXT COMMAND 
GET_CMD_SLOT QO; 
DELAY (1); 
: CHECK THE END PACKET FOR GOOD STATUS 


return REC_STATUS (); ' RETURN THE STATUS 
eng; 


-SBTTL READ.CMD AZTEC GLOBAL ROUTINE 


READ.CMD:: 
MOV R1,-(SP) 
-(§P) ,-(SP) 
0000006 CMD. SLOT, =(SP) 
000054 #54.-(SP) 


0000006 PC ,BLSMUL 
000040 0000006 #40, SND. ENVELOPE (RO) 
CMD. SLOT, (SP) 
000054 #54,-(SP) 
00006 


PC ,BLSMUL 
000017 0000026 #17, SND. ENVELOPE+2(RO) 
000001 0000026 #1, SND.ENVELOPE+2(RO) 
0000006 CMD. SLOT, (SP) 

000054 #54,-(SP5 


0000006 PC .BLSMUL 
000360 0000026 #360, SND .ENVELOPE+2(RO) 
0000006 CMD. SLOT, (SP) 

#54.-(SP) 

PC, BLSMUL 

SND. ENVELOPE +3(RO) 

CMD. SLOT (SP) 


PC ,BLSMUL 

CMD ..REF , SND.ENVELOPE+4 (RO) 
CMD. SLOT, (SP) 

#54,-(SP) 

PC BLSMUL 

SND. ENVELOPE +6(RO) 
CMD.SLOT, (SP) 

45 pS 


“I 
— 


0000006 PC,BLSMUL 

0000006 0000106 UNIT, SND. ENVELOPE+10(RO) 
0000006 CMD. SLOT, (SP) 

000054 #54.-(SP) 

0000006 PC,BLSMUL 


sssessssssssecsesss 


S 
S 
en — 
RORO 





ZRCFA2 
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MISCELLANEOUS SECTIONS 
AZTEC GLOBAL ROUTINE 


060 0000126 


54 
1 0000146 
000054 
0000006 


060 0000156 


000054 


0000006 
060 0000166 


0000006 

000054 

0000006 0000206 
54 


060 0000226 
0000006 
46 000054 
0000006 
060 0000246 
0000006 


000054 
0000006 
0000266 
0000006 
000054 
0000006 
0000306 
0000006 
000054 
0000006 
0000326 
0000006 
000054 


0000006 
060 0000346 
0000006 


000054 


0000006 
060 0000366 
0000006 


000054 

0000006 

0000006 0000406 
0000006 


8 13 
faut r1988 12: 


SND .ENVELOPE+12(RO) 
#3 e=t aa (SP) 


SMUL 
oe SND. ENVELOPE+14(RO) 
CMD. SLOT, (SP) 

#36 =(SP5 

SMUL 

Sub ENVELOPE+15(RO) 
CMD. SLOT, (SP) 
#54,-(SP5 


PC, BLSMUL 
SND. ENVELOPE+16(RO) 
CMD.SLOT . (SP) 


4,~(SP 


PC ,BLSMUL 
BYTE. COUNT, SND. ENVELOPE +20(RO) 


CMD. SLOT, (SP) 
#54,-(SP5 

PC. OL SMUL 

SND. ENVELOPE +22(RO) 
CMD. SLOT, ¢ 

#54,- stgrs<® 


PC ,BLSMUL 
SND. ENVELOPE +24 (RO) 
CMD. SLOT, (SP 
#54,-(SP5 
PC ,BLSMUL 
SND «ENVELOPE +26(RO) 
CMD. SLOT, (SP) 
#3 ps 


BLSMUL 
SMB E ENVELOPE +30(RO) 
CMD. SLOT, (SP) 
#54,-(SP5 
PC, BLSMUL 
SND. ENVELOPE+32(RO) 
CMD. SLOT, (SP) 
#54,~(SP5 
PC ,BLSMUL 
SND. ENVELOPE +34 (RO) 
CMD. SLOT, (SP) 
54,=(SP) 
PC, BLSMUL 
SND. ENVELOPE +36 (RO) 
CMD. SLOT, (SP) 
54,—(SP) 
PC BL $MUL 
LBN. ST, SND. ENVELOPE+40(RO) 
CMD. SLOT, (SP) 
#54,-(SP5 
PC ,BLSMUL 
SND. ENVELOPE +42(RO) 
CMD.SLOT,RO 


RO 
SEND.RING,RO 


— 137 
VAX-11 Bliss=16 V3-555 Pope 
SPIDERSUSERS: CLAKSHMANA. 11REL.REALIZRCFA (24 


; 3034 
; 3035 
; 3036 
; 3040 
: 3041 
; 3042 
; 3043 
: 3044 
; 3045 
; 3046 
3 3047 
; 3048 
; 3049 
: 3053 


000652 
54 


; Routine Size: 
3 Maximum stack 


3069 
3070 


C 13 


MISCELLANEOUS SECTIONS B-Jul-1983 1 15: £23:25 
AZTEC GLOBAL ROUTINE 8-Jul-1983 14:44:20 
100000 2 BIS wi 2(RO) 
9000006 54 MoV ants Ab OR 54 (SP) 
v JSR pe rr en. SLOT 
1 MOV #1.R1 
1$: BEQ 4s" 
0000006 MOV LSDLY.RO 
BEQ $ 
000056 2s: CLR 56(SP) 
DEC RO 
BNE 2$ 
3$: DEC R1 
BR 1$ 
000000V 4$: JSR PC " STATUS 
000060 ADD 
MOV (Spse at 
RTS PC 
215 words, ABSCODE + 10030 


Routine panes 


depth per invocation: 26 words 


SEQ 158 
VAX-11 Bliss=-16 V3-555 Page 71 
SPIDERSUSERS: CLAKSHMANA. 11REL.REALIZRCFA (24 


; Re REG TEMP antl 
; : 3061 
: *,$STMP2 3063 
3; *,SSTMP1 

: SSTMP 

+ $STMP1 

: SSTMP2 

: 3067 
: 2993 





D 13 


— 1% 
MISCELLANEOUS SECTIONS 8-Jul-1983 15:23: VAX-11 Bliss-16 V3-555 Pope of 
AZTEC GLOBAL ROUTINE B-Jul-1985 14:44: SPIDERSUSERS : CLAKSHMANA. 1 1REL .REALJZRC A 


, slobal routine READ_FILL_RING : novalue = 
FUNCTIONAL DESCRIPTION : 
THE COMMAND IS USED TO READ THE DATA FROM THE UNIT AND 
TRANSFERED TO THE HOST BUFFER. 
{FORMAL PARAMETERS : 
= NONE - 


~ 
wD 
-oO 
._™" 
oB 


IMPLICIT INPUTS : 
INPLICIT OUTPUTS : 
= NONE - 


{ COMPLETEDTION CODES : 
RET STATUS : RETURN STATUS PASSES BACK TO THE CALLING ROUTINE 


i SIDE EFFECTS : 
= NONE - 


begin 
local 
! 
: MSCP PORT COMMAND ENVELOPE HEADER FIELD DEFINITION 
G SND_ENVELOPE C.CMD_SLOT, MSG LENGTH] = SZ_RD; . LOAD ne sshee LENGTH 
SND_ENVELOPE C.CMD_SLOT, = REDIT S$] = _ONE; , LO CREDIT SIZE 
SND_-ENVELOPE C£.CMD_SLOT, 1VPE) = 0; : MESSAGE TYPE 
: SND_ENVELOPE C.CMD_ “SLOT. Conn IDJ = “0; ' DEFINE CONNECTION ID 
| =— GENERIC COMMAND ENVELOPE FIELD DEFINITION 
'LOAD COMMAND REFERENCE ° 
' ZERO HI ORDER CMD REF # 
$ see TED UNIT 
i NOT USED IN DUP IMPLIMENT. 
§ DEF INE COMMAND OPCODE 
LOPE {.CMD-SLOT, * UQRSVD] ! 
SND-ENVELOPE [C.CMD_SLOT, NORIFIER] & MD. * EXP; ! 
5 Coe SPECIFIC COMMAND ENVELOPE FIELD DEFINITION 
SND_ENVELOPE [.CMD_ igre BLO WCNT) = = BYTE. COUNT; - 


BUF DESCRPTR: i 
ERO: ! BUFF 


: D 
! DEFINE CMD MODIFIERS 


mae 


o 
2 
. 
° 
° 
2 
° 
° 
° 
3 
° 
° 
° 
o 
° 
° 
° 
° 
° 
. 
& 
° 
° 
. 
° 
. 
e 
2 
© 
. 
e 
> 
e 
a 
e 
* 
° 
7 
° 
. 
° 
. 
° 
. 
° 
. 
° 
o 
° 
. 
° 
e 
° 
. 
° 
2 
° 
. 
° 
° 
« 
° 
° 
° 
° 
° 
° 
° 
. 
e 
. 
o 
. 
° 
. 
e 
* 
° 
. 
° 
° 
e 
° 
oe 
. 
° 
. 
° 
. 
° 
° 
© 
* 
° 
° 
e 
. 
6 
. 
e 
. 
° 
. 
e 
8 
° 
. 
° 
°. 
e 
o 
go 


ee ee ee ee ee ee ee se ee ee me ce ee ee ed aed ed med ed 
NOUS WN $0 OONOUSWN 0 OONOAUEWN— 


WWAWWIANNNWWAAANNNAAANAAANAWAAAANA 


nunner 
m 


I 
I 
I 
I 
I 
LOCK 
C 


st 


—O 


E 0G 
SND-ENVELOPE C.CMD SLOT. i LOGICAL BLO K 








E 13 
este 1 

MISCELLANEOUS SECTIONS g-Jul-1983 15:23: :38 VAX=-11 Bliss-16 V3-555 Page 
AZTEC GLOBAL ROUTINE ~Jjul-1983 14:44:20  SPIDERSUSERS:CLAKSHMANA.11REL. REALIZRC (25 

i 

SET THE OWNERSHIP BIT TO 1 WHICH GIVE THIS SLOT TO THE PORT. 

SEND_RING [.CMD_SLOT, OWN_BIT] = PORT_OWNED; 

end: 


WNAAIW 
at aH 4 3 
WIS Soo 


~SBTTL READ.FILL.RING AZTEC GLOBAL ROUTINE 
0000006 READ.FILL.RING:: 
MOV G9 - S107 CSP 3 


000054 #54,-(SP 

PC BLSMUL 
000040 0000006 4#40,SND. ENVELOPE (RO) 
0000006 MD. SLOT, (SP) 
000054 #34 = (SPS 


0000006 J BLSMUL 
000017 0000026 Wiis SND. ENVELOPE+2(RO) 
60 000001 0000026 1S8  #1,SND.ENVELOPE+2(RO) 
0000006 MOV CMD. SLOT, (SP) 
000054 #4 =(SP5 


0000006 BLSMUL 
000360 0000026 #60, SND. ENVELOPE +2(RO) 
0000006 MOV CHD. SLOT SP) 


PC ,BLSMUL 
SND ..ENVELOPE+3(RO) 
CMD. SLOT, (SP) 
#54,-(SP) 
PC ,BLSMUL 
CMD .REF , SND .ENVELOPE+4 (RO) 
CMD.SLOT, (SP) 
#54 = =(SP5 
PC ,BLSMUL 
SND. ENVELOPE +6 (RO) 
CMD. SLOT, (SP) 
#54,-(SP5 
PC ,BLSMUL 
UNIT, SND .ENVELOPE+10(RO) 


CMD. SLOT, (SP) 
#54,-(SP) 


PC ,BLSMUL 
SND. ENVELOPE +12(RO) 
CMD. SLOT, (SP) 
#96 = (SP) 
0000006 BLSMUL 
000041 0000146 Octo SND. ENVELOPE*14(ROD 
0000006 (SP) 


000054 #54.-(SP5 

0000006 PC ,BLSMUL 

0000156 SND. ENVELOPE +15(RO) 

0000006 MOV MD.SLOT, (SP) 

000054 #54,-(SP5 

0000006 PC 300. 

100000 0000166 #1000 “SND ENVELOPE +16(RO) 
0000006 SP) 


CHD SLO 
000054 #54,-(SP ps 


NaooN 
AAONAO 
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MISCELLANEOUS SECTIONS 8-Jul-198 
AZTEC GLOBAL ROUTINE 8-Jul-198 


— 1¢ 
31 VAX-11 Bliss-16 V3-555 Pope OS 
31 SPIDERSUSERS: CLAKSHMANA.11REL. REAL JZRC (3 


0000006 BLSMUL 
0000006 0000206 BYTES COUNT, SND. ENVELOPE +20(RO) 
raesreas oP 


0000006 PC ,BLSMUL 
060 0000226 SND. ENVELOPE +22(RO) 
0000006 1 Ret OO al ; 3120 


=( 


3119 


PC ,BLSMUL 

BUF .DESCRPTR, SND. ENVELOPE +24 (RO) 

CMD. SLOT, (SPS : 3121 
#54 (SP5 


SMUL 
onBe ENVELOPE+26(RO) 
CMD. SLOT, (SP) ; 3122 
#54.=(SPS 


PC ,BLSMUL 

GND ENVELOPE *30(RO) 

CMD. SLOT, (SP) : 3123 
#54,~(SP5 


PC “51 SAUL 

SND. ENVELOPE *32(RO) 

CMD. SLOT, (SP) : 3124 
#54,-(SP5 


PC ALSMUL 
ShBCENVELOPE+34.(RO) 
Ne Et ; 3125 


PC BLSMUL 

SND. ENVELOPE +36(RO) 

CMD. SLOT, (SP) : 3126 
#54,-(SP) 


PC ,BLSMUL 
LBN.ST,SND.ENVELOPE+40(RO) 
CMD. SLOT, (SP) 

#54,-(SP) 


PC ,BLSMUL 
SND..ENVELOPE+42(RO) 
+ Cate RO ; 3131 


3127 


RO 
0000006 ADD SEND.RING,RO 
100000 000002 A es 2(RO) 
000054 #54, 


062706 

000207 
: Routine Size: 193 words, Routine Base: ABSCODE + 10706 
+ Maximum stack depth per invocation: 23 words 
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SEQ 162 

ZRCFA2 MISCELLANEOUS SECTIONS 8-Jul-1983 15:23:25 VAX-11 Bliss-16 V3-555 P 75 

v01.0 AZTEC GLOBAL ROUTINE 8-Jul-1983 12:48:90 LOT DERSUSERS: LLAKSHMANA. 11REL .REALIZRCFA (26 
Hh , Wobal routine GET_UNIT_STATUS = 


+ 

! FUNCTIONAL DESCRIPTION : 

: THE GET UNIT STATUS COMMAND IS USED TO READ THE CURRENT 
: STATE OF THE UNIT, PLUS CERTAIN UNIT CHARACTERISTIACS. 


FORMAL PARAMETERS : 
: - NONE - 


IMPLICIT INPUTS : 
INPLICIT OUTPUTS : 
= NONE = 


] 
' 
] 
1 
' 
i 
i 
i 
' 
‘ 
' COMPLETEDTION CODES : 
: RET_STATUS : RETURN STATUS PASSES BACK TO THE CALLING ROUTINE 
' SIDE EFFECTS : 
: = NONE - 

begin 

local 


AAQDAAQQAUUINUIUIUIUIUIUIUIE & EEE BEE EE 


i] 
UQ PORT COMMAND ENVELOPE HEADER FIELD DEFINITION 


AAA AAA AAAS A SAS ASAT ASABASABLAB ALAA AAA ALAA LA 


Be Se Se Se Se Fe Se Fe Se Be Ge Se Ge Be Se Se Be Be Be Fe Ge Fe Ge Se Be Be Be Se Be Be Ge Se Be Ge Se Se Se Ge Se Fe Ge Se Be Se Se Se Ge Se Ge Ge Ge Ge Ge Ge Se Ge Ge 


66 SND_ENVELOPE [.CMD_SLOT, MSG_LENGTH] = SZ_GUS; ! LOAD MESSAGE LENGTH 
67 SNDENVELOPE C.CMD_SLOT, CREDITS] = ONE; ' LOAD CREDIT SIZE 
68 SND~ENVELOPE C.CMD_SLOT, MSG TYPE] = 0; ! MESSAGE TYPE 
69 SNDENVELOPE C.CMD_SLOT, CONN_IDJ] = 0; ! DEFINE CONNECTION ID 
a ! MSCP GENERIC COMMAND ENVELOPE FIELD DEFINITION 
a SND_ENVELOPE C.CMD_SLOT, CMD_LREF] = .CMD_REF; LOAD COMMAND REFERENCE # 
7% SND-ENVELOPE [L.CMD"SLOT, CMD-HREF] = ZERO; ' ZERO HI ORDER CMD REF # 
75 SND~ENVELOPE £.CMD_SLOT, UN_CUSED] = .UNIT; i SELECTED UNIT 
76 SND~ENVELOPE [.CMD-SLOT, UN-HUSED] = ZERO; i NOT USED IN DUP IMPLIMENT. 
177 SNDENVELOPE C.CMD-SLOT, OPCODE) = OP GUS; i DEFINE COMMAND OPCODE 
178 SND-ENVELOPE C.CMD_SLOT, UQRSVDJ = ZERO; ' NOT USED 
179 SND_ENVELOPE C.CMD_SLOT, MODIFIER] = ZERO; i DEFINE CMD MODIFIERS 
3181 SET THE OWNERSHIP BIT TO 1 WHICH GIVE THIS SLOT TO THE PORT. 
3183 SEND_RING [.CMD_SLOT, OWN_BIT] = PORT_OWNED; 
3185 READ THE IP REGISTER TO STIMULATE PORT POLLING. 
3187 TEMP = .RC25_ADDR CRCIP, RC_ALLI; 
3189 GET THE COMMAND SLOT NUMBER FOR NEXT COMMAND 
3191 GET_CMD_SLOT (); 
3192 ! 





H 13 


SEQ 163 
MISCELLANEOUS SECTIONS gosto 19 12 15:23:25 VAX-11 Bliss-16 V3-555 Page 6 
AZTEC GLOBAL ROUTINE B-Jul-19835 14:44:20 SPIDERSUSERS : CLAKSHMANA. 11REL.REALIZRCFA (26 


DELAY (1); 
CHECK THE END PACKET FOR GOOD STATUS 


if REC_STATUS () ! READ THE STATUS 
then 


begin 
owe »RET_STATUS; ! RETURN WITH A STATUS ERR 


else 
RES_SLOT = .RES_SLOT - 1; ! GET THE CURRENT RES. SLOT 


RET_UNIT FLAG = -REC_ENVELOPE C.RES_ SLOT, UNIT_FLAG]; ! READ UNIT FLAG 
GET-RES_SLO ' GET REXT SLO 

return . “RET. "Stak US; i RETURN WITH A PASS CODE 

end; 


-SBTTL GET. UNIT.STATUS AZTEC GLOBAL ROUTINE 
GET. UNIT. STATUS 


0000006 

000054 

0000006 PC BLSMUL 

000014 0000006 #14, SND. ENVELOPE (RO) 
0000006 


CMD. SLOT, (SP) 
6 000054 #36 tsps 


0000006 $ Si SRUL 

000017 0000026 Wits SND. ENVELOPE +2(RO) 

000001 0000026 ISB #1, SND. ENVELOPE+2(RO) 
MOV CMD.SL 

000054 #54,-(SP5 


0000006 J PC .BLSMUL 

000360 0000026 #560. SND. ENVELOPE +2(RO) 
0000006 CMD. SLOT, (SP) 

000054 #54,-(SP5 

0000006 


PC ,BLSMUL 
0000036 SND. ENVELOPE +3(RO) 
MOV CMD. SLOT, (SP) 
#54.-(SP5 


PC ,BLSMUL 
CMD REF , SND.ENVELOPE+4 (RO) 
CMD. SLOT, (SP) 

#34 =(SP5 

C .BLSMUL 

SN” ENVELOPE+6(RO) 

CMD. SLOT, (SP) 

#54,=(SP5 
PC ,BLSMUL 
init SND. ENVELOPE +10(RO) 
CMD. SLOT, (SP) 

#54.-(SP5 


PC BLSMUL 
1 SND. ENVELOPE +12(RO) 
0000006 CMD.SLOT, (SP) 


kd ad od 8 od oo ot 
LL8SS222823258 
wi 
N 


SSSSsssssssssssss 


oo 
& 


Lt) 
— 
& 
S2Ss 
== 
N 
CON 





3; Routine Size: 
: Maximum stack 


» 
w 
Nm 
—— 
iL] 


MISCELLANEOUS SECTIONS 
AZTEC GLOBAL ROUTINE 


000077 
0000226 0000006 
000000v 
000030 
0000006 


158 words, 
depth per invocation: 


1$: 


2$: 


3$: 
4$: 


5$: 


6$: 


Routine Base: 
16 word 


I 13 


SEQ 164 
(7 


~Julo1983 15: 23:25 VAX=-11 Bliss-16 V3-555 Page 
Jul-198 0  SPIDERSUSERS:CLAKSHMANA.11REL.REALIZRCFA (26 
#54,-(SP) 
PC. SMUL 
# , SND ENVELOPE +14(RO) 
CMD. SLOT, (SP) : 3178 
36 ~(SP5 
SND. ENVELOPE*15(RO) 
CMD. SLOT, (SP : 3179 
#34 =(SP5 
SMUL 

Shb «ENVELOPE*16(RO) 

MD.SLOT,RO : 3183 
RO 
SEND. RING RO 
@RC25. ADDR, 30(SP) z *,RC.REG 3187 
30(SP) ,RO + RC.REG, TEMP 
PC,GET.CMD.SLOT : 3191 
#1 R1 + *,$STMP2 3193 
LSDLY.RO : *,SSTMP1 
32(SP) : SSTMP 
RO + $S$TMP1 
2s 
i 3: SSTMP2 
PC REC. STATUS : 3198 
RO 
#30,SP 
RET.STATUS RO : 3200 
RES.SLOT ; 3204 
RES. SLOT,RO : 3206 
RO 
RO 
RO 
R 
#77,R0 
REC. -ENVELOPE*22(R0) RET.UNIT.FLAG ; 
PC GET.RES.SLO ; 3207 

SP ; 3136 
RET STATUS RO 3 3158 
(SP)+, (SP)+ : 3136 
(SP)+.R1 


ABSCODE + 11510 
s 





J 13 


oe 165 
MISCELLANEOUS SECTIONS gn Jul ~1983 15:23:25 VAX-11 Bliss=16 V3-555 page e 
AZTEC GLOBAL ROUTINE B-Jul-19835 14:44:20 SPIDERSUSERS : CLAKSHMANA. 11REL.REALIZRCFA (2 


4g 2 lobal routine GET_CMD_SLOT : novalue = 
{FUNCTIONAL DESCRIPTION: 


THIS ROUTINE ASSIGNS A COMMAND SLOT NUMBER FOR THE COMMUNICATION 
RING, IT WILL WRAP AROUND, AS THE SLOT NUMBER REACHED TO THE BOTTOM. 


begin 
begin 


if .CMD_SLOT eqlu SND_ALLOCATE = 1 : LS SLOT # REACHED TO THE END 
en ° 
CMD_SLOT = ZERO : rae AROUND THE COMMAND RING 
se ° 
CMD_SLOT = .CMD_SLOT + 1; ! INCREMENT THE CMD SLOT NUMBER 


end; 
SEND. RING C.CMD_SLOT, FLAG_BIT) = ZERO; ! CLEAR CMD_RING FLAG BIT 
return; 
end; 


-SBTTL GET.CMD.SLOT AZTEC GLOBAL ROUTINE 
9000006 000017 GET.CMD.SLOT:: 

oe CMD.SLOT #17 3 
0000006 CMD.SLOT 

BR 2s 
0000006 : CMD.SLOT 
0000006 : MOV ns RO 


RO 
0000006 SEND.RING,RO 
040000 000002 aaa o2(RO) 


3 Routine Size: 19 words, Routine Base: ABSCODE + 12204 
: Maximum stack depth per invocation: 0 words 


3233 
3234 ! 





K 13 


SCELLANEOUS SECTIONS gn Jul =1983 15:23: 
TEC GLOBAL ROUTINE 8-Jul-198 4: 


949 lobal routine GET_RES_SLOT : novalue = 
i FUNCTIONAL DESCRIPTION: 


SEQ 166 
MI 25 VAX-11 Bliss-16 V3-555 Poge 79 
AZ 14:44:20 SPIDERSUSERS: CLAKSHMANA. 11REL.REALIZRCFA (28 


THIS ROUTINE ASSIGNS A RESPONSE SLOT NUMBER FOR THE COMMUNICATION 
RING, IT WILL WRAP AROUND, AS THE SLOT NUMBER REACHED TO THE BOTTOM. 


begin 
begin 


7 eRES_SLOT eqlu REC_ALLOCATE - 1 ! 3 SLOT : REACHED TO THE END? 
en ! . 
RES_SLOT = ZERO ! Hae AROUND THE RESPONSE RING 
else ! 
RES_SLOT = .RES_SLOT + 1; ' INCREMENT THE RES SLOT NUMBER 
end; 
RECEIVE_RING C.RES_SLOT, FLAG_BITJ = ZERO; ' CLEAR RECEIVE RING FLAG BIT 


return; 
end; 


-SBTTL GET.RES.SLOT AZTEC GLOBAL ROUTINE 
0000006 000017 GET.RES.SLOT:: 
cMP RES.SLOT #17 3 
BN 1$ 
0000006 RES.SLOT 
BR 2s 
0000006 : RES.SLOT 
0000006 : MOV -~ eee 


RO 
0000006 RECEIVE.RING,RO 
040000 000002 > caechaaael 


; Routine Size: 19 words, Routine Base: ABSCODE + 12252 
: Maximum stack depth per invocation: 0 words 


3255 
3256 ! 
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SEQ 167 
MISCELLANEOUS SECTIONS 8-Jul-1983 15:23:25 VAX-11 Bliss=-16 V3-555 Page 80 
AZTEC GLOBAL ROUTINE 8-Jul-1983 14:44:20 SPIDERSUSERS : CLAKSHMANA.11REL.REALIZRCFA (29 


global routine DUP_MSCP_INTS : INT_LNKSTYP = 


le 
i FUNCTIONAL DESCRIPTION : 

THIS ROUTINE SERVICE THE DUP AND MSCP INTERRUPT 
i FORMAL PARAMETERS : 


i SIDE EFFECTS : 


begin 
RCo5., DATA CRCSA, RC_ALL] = .RC25_ADDR CRCSA, RC_ALLJ; ! GET RCSA DATA 


a -RC25_DATA CRCSA, RCSA_ERJ ! CHECK SA REG.ERROR BIT 
en 


i 
a ue EX = ' INDICATE THE INT. HAPPENED 
het "STATUS = Att PEN CODE: ' SAVE THE PORT/CTLER FAILURE 
return .RET_STATUS; 
end 
wee 


3 Ne _AREA CRSP -INT} ZERO: ' CLEAR INT. FLAG IN THE HEADER WORD 
PAS CODE: i RETURN A NON-ERROR CODE 


=AANEX * ALL_ONES; ! INDICATE THE INTERRUPT OCCURED 
end; 


-SBTTL DUP.MSCP.INTS AZTEC GLOBAL ROUTINE 
PPR rene 


0,-(SP) 
RC25.ADDR,RO 
2(RO) .=(S 

(SP) .RC25.DATAS2 


* ,RC.REG 
RC.REG,* 


177777 0000006 #-1,1.AM.NEX 
7 000021 0000006 #21,RET.STATUS 
0000006 : MOV HEAD. AREA,RO 
6(RO) 


4(RO) 
0000006 RET. STATUS 
177777 0000006 #-1,1.AM.NEX 
2$: {spse" 
(SP)+,RO 


; Routine Size: 29 wo Routine Poses ABSCODE + 12320 
3 Maximum stack depth — “invocation: 3 words 





Mm 13 
MISCELLANEOUS SECTIONS 8-Jul-1 


SEQ 168 


1 =F VAX-11 Bliss-16 V3-555 


983 15 25 Poge 81 
AZTEC GLOBAL ROUTINE 8-Jul-1983 14:44:20 SPIDERSUSERS: CLLAKSHMANA. 11REL.REALIJZRCFA (29 





SEQ 169 
MISCELLANEOUS SECTIONS :23: VAX-11 Bliss=16 V3-555 page 82 
AZTEC GLOBAL ROUTINE 244: $I DERSUSERS: CLAKSHMANA.11REL.REALIZRCFA (30 


global routine SET_INT_VECTOR : novalue = 


lee 

FUNCTIONAL DESCRIPTION : 
THIS ROUTINE SET UP THE INTERRUPT VECTOR 
tet meth a 


e Ge Ge Ge Ge Ge Ge Ge Ge Gs 


bea EC (.RT_TABLE CRT_VECTOR]); ' CLEAR VECTOR ADDRESS 

SETVEC (.RT~TABLE CRT-VECTORJ, DUP_MSCP ~INTS. RT. TABLE ERT BR LEVEL); ! SET VECTCR ADDR. SERVICE 
WRT_RC25 (RCSA, TRUE); i LET LTE AO PLERY 60 

Fecurng 

end; 


Se Ge Se Ge Ge Se Se Ge Se Ses 


SET.INT.VECTOR AZTEC GLOBAL ROUTINE 


-SBTTL 
010146 SET. INT.VECTOR:: 
MOV R1,-(SP) 3 


016701 0000006 Oe ale : 


000002 MO 2(R1), 
36 


RT. TABLE ,RO 
000004 4(RO) ,=(SP) 
012320" #DUP.MSCP.INTS,=(SP) 
000002 MOV 2(RO) ,-(SP) 
000003 oe 


000010 : #10,SP 
serene 


; Routine Size: 21 words, Routine Base: ABSCODE + 12412 
; Maximum stack depth per invocation: 7 words 


313 
314 
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SEQ 1 
CELLANEOUS SECTIONS ~Jul-1983 15:23:25 VAX-11 Bliss=16 V3-555 P 
EC GLOBAL ROUTINE Sajut= 1988 12:40:30 SP IDERSUSERS:CLAKSHMANA. 11REL..REALIZRCF 8 Gi 


global routine REC_SIATUS = 


MIS 
AZT 


 ™~ 
2» 
-- 
._™" 
oz 


—_ —) od 
WDONAW 


++ 
FUNCTIONAL DESCRIPTION : 


THIS ROUTINE READ THE END MESSAGE PACKET AND RETURN THE PORT 
TO THE CONTROLLER, AND A STATUS FLAG IS SEND TO THE CALLER. 


IF STATUS BIT INDICATES UNSUCESS, THEN A ERROR MESSAGE WILL 
BE REPORTED. 


WNW 


WWWANWNANA 


FORMAL PARAMETERS : 
IMPLICIT INPUTS : 
scons | | OUTPUTS : 


ROR : TRUE 
NO ERROR : FALSE 


COMPLETION CODES : 
SIDE EFFECTS : 


WN SO OONAOUSWN— 


w 


begin 


' WAITING FOR THE CONTROLLER TO FILLED THE DESCRIPTOR AND RELEASING 
! JT TO THE HOST, IF WAITING TIME EXPIRED THEN AN ERROR WILL BE REPORTED. 


WWAWWAWANANANAA 
a WWNWAWAANAANW 


incru — from 0 to 30000 do ! SET TIME OUT RANGE 
egin 
DELAY (5); ! DELAY 
if .RECEIVE_RING C.RES_SLOT, OWN_BITI ootu 0 ! IF HOST OWN THE SLOT 
then ! THEN ' 


beste 
DELAY (25); ! DELAY 


if (.REC_LENVELOPE C.RES_SLOT, STATUS] ! READ THE STATUS BITS 
nequ ZERO iF 
n ! 


ERROR 
begin ' THEN FLAG THE ERROR 

RECEIVE_RING C.RES_SLOT, OWN_BIT) = ONE; ! PORT OWN THE RING 
RET_STATUS = RSE_CODE; T REPORT THE ERROR & SET STATUS 
return »RET_STATOS; ! SET ERROR FLAG 


WIWNWWANNNWAWW 

NAAN AAA 

MUMUUVIUIVIMUTU 
SOWUMNOUSWwN—OoO 


begin 
RECEIVE _RING C.RES_SLOT, OWN_BIT] = ONE; ' PORT OWN THE RING 
GET_RES_SLOT (); T GET NEXT RESPONSE SLOT # 
RET_STATUS = PAS_CODE; ' CLEAR STATUS 

reuwre eRET_STATOS; ® RETURN WITH PASS FLAG 

end; 


Baas 


end; 


RRO 
=—OOoOon 


end; 
RC25_DATA CRCSA, RC_ALLJ = .RC25_ADDR CRCSA, RC_ALLJ; ! GET RCSA DATA 
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a Ee PE 8-Jul-198 2a 3 VAX-11 Bliss=16 V3-555 
AZTEC GLOBAL ROUTINE 8-Jul-198 0 


SEQ 171 


a3 
ee 


Page 84 
SPIDERSUSERS: CLAKSHMANA.11REL.REALIZRCFA (31 


i «RC25_DATA CRCSA, RCSA_ERJ ! CHECK SA REG.ERROR BIT 


"begin STATUS = PFE CODE ; ' SAVE THE PORT/CTLER FAILURE 
return eRET_STATOS; 


else 
RET.S STATUS = CTO_CODE; ! SET TIME EXPIRED IN STATUS BUF 
return . -RET_STATOS; ' RETURN WITH A TIME EXPIRED FLAG 
end; 


end; 


-SBTTL REC.STATUS AZTEC GLOBAL ROUTINE 


REC. STATUS: : 
JSR R1,SSAVE2 
={SP), o= (SP) 


COUNT 

& , SSTMP2 
; *,SSTMP1 
; SSTMP 
; SSTMP1 
; SSTMP2 


* ,SSTMP2 
; *,SSTMP1 


; SSTMP 
; SSTMP1 


; SSTMP2 
6$ 
RES.SLOT,RO 
RO 


RO 
RO 


R 
000077 #77 ,RO 
0000166 REC..ENVELOPE+16(RO) 
0000006 55+ SLOT -RO 


SSSeSSeesseessess 
USESSKSRRVSENSERKSO 


RO 
0000006 RECEIVE .RING,RO 








D 14 


rt et 5 oe + oa 8 VAX-11 Bliss-16 V3-555 
~Jul-1983 14:44:20 


#100000 ,2(RO) 
#31,RET.STATUS ; 3356 
° T.STATUS,RO ; 3348 


RES.SLOT,RO ; 3361 
RO 


SEQ 1 


Pa 
SP IDERSUSERS: LLAKSHMANA. 11REL .REALJZRCFA it 


RO 
RECEIVE.RING,RO 
#100000, 2(RO) 
RET. STATUS 
RET.STATUS,ROD 
13$ 


R2 3 COUNT 
ae veNee ; COUNT,* 


RC25.ADDR,RO ; 
(RO), (SP ; *,RC.REG 
$00? Les ATAOS ; RC.REG,* 


#21,RET.STATUS 
, hcccianaaaesl 


BR $ 
12$: #11,RET.STATUS 
RET.STATUS,RO 
13$: mp spreetarer 


3: Routine Size: 104 words, Routine Base: ABSCODE + 12464 
3; Maximum stack depth per invocation: 6 words 


3386 
3387 ! 





E 14 


— 173 
MIS a gt PO 8-Jul-1983 15:23: 33 VAX-11 Bliss=16 V3-555 page 
AZTEC GLOBAL ROUTINE B-Jul-1983 14:44:20 SPIDERSUSERS : CLAKSHMANA. 11REL. REAL ZAC A(¢ 


942 lobal routine RANDOM_NUM : novalue = 
i FUNCTIONAL DESCRIPTION: 
i THIS ROUT INE RECEIVED A SEEK FROM CALLER AND GENERAT A RANDOM 


~ 
wD 
--o 
_™w" 
oR 


bei = "14657; ' CONSTANT NUMBER 

P6 = 341 176: ' CONSTANT NUMBER 
P2 = .P3*(.P2 + .P6) mod .END_LBN; ' RANDOM LBN NUMBER 
= TICKS $ mod 2: ! UNIT NUMBER 
return; 

end; 


-SBTTL RANDOM.NUM AZTEC GLOBAL ROUI INE 
012767 034501 0000006 oNUM: : 
#34501 ,P3 


012767 102600 0000006 #-75200,P6 
0000006 P3,-(SP 


0000006 
0000006 
0000006 


0000006 
0000006 
000006 


3: Routine Size: 24 words, Routine Base: ABSCODE + 13004 
: Maximum stack depth per invocation: 4 words 


oq obal routine AVERAGE_TIME : novalue = 
i FUNCTIONAL DESCRIPTION: 


THIS ROUTINE CACULATE THE AVERAGE SEEK TIME FOR 
AZTEC MACHINE. 


7eUitKs + .SECONDS*60 + .MINUTES*60*60; : reptile IT TO TOTAL TICKS 
P4*16)/.P6; 1 GET THE AVERAGE T 

“P6 nod -P6; | AVERAGE TIME FRACTION 
“DATAS + .DATA2; i GET THE TOTAL FRACTION 


-SBTTL AVERAGE.TIME AZTEC GLOBAL ROUTINE 
AVERAGE . TIME: : 








000002 


0000006 
0000006 0000006 


706 000014 


3; Routine Size: 
3 Maximum stack 


55 words, Routine Base: 


depth per invocation: 


8 words 


F 14 


SEQ 17% 
«jul-1983 15:23:25  VAX-11 Bliss-16 v3-555 ° ? 
pout w OBS 12:22:58  SBTDERSUSERS: CLAKSHMANA. 11REL REAL IZRCPA (Be 
; | 05 

; 13 


(SP5+,R1 
PC 


ABSCODE + 13064 








G 14 


SEQ 175 
MISCELLANEOUS SECTIONS ae ts 1334743 VAX-11 Bliss=-16 V3-555 page 4 
AZTEC GLOBAL ROUTINE B-Jul-19835 14:44:20 SPIDERSUSERS: CLAKSHMANA. 11REL.REALIJZRCFA (¢ 


499 lobal routine EXAM_DATA : = 
FUNCTIONAL DESCRIPTION: 


THE FUNCTION OF THIS ROUTINE IS TO EXAMINE THE 
FREE MEMORY FOR EXPECTED DATA. 


IMPLICIT INPUTS: 
H_SADD 
BOF _LENGTH 


T 
IMPLICIT OUTPUTS: 
RETURN STATU 


SIDE EFFECTS: 
= NONE = 


MURIMNINPOPeTer 


SEEESESES 
DIRARAN SS SOVRNRUN SS 


begin 


SERASESEEAELE 


local 
PATTERN, 
FLAG; 


SSE 
SRE W 
Wr-o0 


FLAG = ZERO; ! INIT ERROR FLAG 

TEMP = .H_SADD; ! SAVE ADDR. IN TEMP. BUFFER 
H_EADD = .H_SADD = 2 + (.BUF_LENGTH*2); ! END OF FREE HOST MEMORY 
PATTERN = .TIP; ! PUT PATTERN FOR COMPARE 


anal - COUNT from .H_SADD to .H_EADD by 2 do ! EXAMINE CONTENTS OF MEMORY 
egin 


if .TIP eqlu 1 then PATTERN = ( not .TEMP); 
if .TIP eqlu 2 then PATTERN = .TEMP; 
if .. TEMP nequ .PATTERN 
then 
begin 
FLAG = TRUE; 
TIP = .PATTERN; 
exitloop; 
end; 


TEMP = .TEMP + 2; 
end; 


if .FLAG 
then 


MAAR 
WONAULWN—OO 


RELESERAESEREE 
FERS 


! GET ERROR DATA 
! FOR TEST MODULE 


P6 = . TEMP; 
return RET_STATUS = TRUE; 





H 14 


SEQ 176 
MISCELLANEOUS SECTIONS 8-Jul-1983 1 VAX-11 Bliss=16 V3-555 Page 89 
AZTEC GLOBAL ROUTINE 8-Jul-1983 1 SPIDERSUSERS : CLAKSHMANA. 11REL.REALIZRCFA (33 


lse 
return RET_STATUS = FALSE; 


.SBTTL EXAM.DATA AZTEC GLOBAL ROUTINE 
SR R1,$SAVE3 
R3 


H.SADD, TEMP 
ee 


; *,PATTERN 
* , COUNT 

; *,PATTERN 

; PATTERN 

3 *,PATTERN 

; *,PATTERN 

; *,FLAG 

; PATTERN,* 
* , COUNT 


; COUNT,* 
FLAG 


000002 0000006 
0000006 0000006 


RINSSNSSRAKSRNARSESS 


#1,R 

jaa tiaataa 
0000006 7$: ~ caanmnaee 

PC 


z: Routine Size: 81 wo Routine Base: ABSCODE + 13242 
+ Maximum stack BB wy a “invocation: 5 words 


3482 


000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000176 
0002 
000212 
0002 
000224 
000230 
000232 
000 
000240 


rm 
& 








1 14 
MISCELLANEOUS sett sons 8-Jul-1 : VAX-11 Bliss=-16 V3=555 


SEQ 177 


Pa 90 
AZTEC GLOBAL ROUTINE $ VO IDERSUSERS<LLAKSHMANA. 11REL.REALIJZRCPA (33 
3483 '!<BLF/PAGE> 





a3 
ee 


WWW 


Setar 


MAA AMAIA UII 


WWW NWAAAWAAAAWNANAAWAAAAAAAAAW 


J 14 


ar SECTIONS 8-Jul-19 


SEQ 178 
8 23: VAX-11 Bliss=16 V3-555 
AZTEC GLOBAL ROUTINE 8-Jul-198 


5 25 Page 91 
4:44:20 SPIDERSUSERS: CLLAKSHMANA.11REL.REALIZRCFA (34 


WW 


99a tobat routine DATA_XMT_REC = 
THIS ROUTINE DOES THE FOLLOWING : 


A. INITIALIZE COMMUNICATION AREA 
B. SEND EXECUTE AND SUPPLY COMMAND 

EXAMINE END RESPONSE PACKET. IF TIME EXPIRED, 
THEN SEND DUST STATUS COMMAND. 

COMPARE TRANSMITTING DATA WITH RECEIVING DATA 
E. REPORT ERROR, IF THERE IS ONE 


IMPLICIT INPUTS: 
DMC_TEST 


BYT_CNT 
begin 
local 
FLAG; 
FLAG = ZERO; ' INIT ERROR FLAG 
if AZTEC_READY () then return .RET_STATUS; ! GET AZTEC READY FOR OPERATION 
CMD_REF = 3; ' COMMAND REFERENCE NUMBER 
BUF-DESCRPTR = .DMC_TEST; ! DMCODE STARTING ADDRESS 
BYTE_COUNT = .BYT_CNT; ' BYTE COUNTS 
if EX_SUP_PRG () then return .RET_STATUS; ! ISSUE AN EXECUTE SUPPLIED - 
CMD_REF = 4; ! COMMAND REFERENCE # 
BUF-DESCRPTR = TIP; ' CLEAN THE BUFFER 
BYTE_COUNT = 02; ' SET BYTE COUNTS = 2 


if REC_DATA () then return .RET_STATUS; ! SEND A RECEIVE DATA COMMAND 


++ 
COMPARE TRANSMITTING DATAS AND RECEIVING DATAS 
IF ERROR, REPORT BLOCK LENGTH, BAD DATA AND GOOD DATA. 


incru J from 0 to 256 do 
begin 
" -XMT_DATA_BUF C.J] nequ .RCV_DATA_BUF C.J] 
en 


begin 

FLAG = TRUE; 
exitloop; 
end; 





K 14 


SEQ 179 
ZRCFA2 MISCELLANEOUS SECTIONS 8-Jul-1983 15:23:25 VAX-11 Bliss-16 V3-555 page 92 
v01.0 AZTEC GLOBAL ROUTINE B-Jul-1983 14:44:20 SPIDERSUSERS: CLAKSHMANA. 11REL.REALIJZRCFA (34 


! GET ERROR INFO 
! FOR TESTMODULE 


P6 = . TEMP; 
return RET_STATUS = TRUE; 
en 


tse 
return RET_STATUS = FALSE; 
end; 


Se Ge Ge Ge Ge Ge Se Se Se Se Gs Se Se 


~SBTTL DATA.XMT.REC AZTEC GLOBAL ROUTINE 
0000006 DATA. XMT.REC:: 
JSR R1,$SAVE3 


R 
000000Vv Aon 
1$ 
0000006 RET. STATUS RO 


000003 0000006 : #3,CMD.REF 

0000006 0000006 DMC. eas BUF .DESCRPTR 
0000006 0000006 BYT.CNT,BYTE. COUNT 
167426 ro + . SUP.PRG 


2s 
0000006 MOV a - STATUS ,RO 


000004 0000006 : #4,CMD.REF 
0000006 0000006 #TIP,BUF .DESCRPTR 
000002 0000006 #2,.BYTE.COUNT 
171172 PC;REC.DATA 

ROR RO” 


3003 3$ 
° 0000006 MOV ~ pees 


R e 
0000006 0000006 MP Et -ATA.BUF GRAD AE _DATA.OF SD ; 


000001 #1,R3 
BR 6$ 


: fe? 
000400 MP Be A600 
R3 3 
7 


$ 
000002 0000006 ae. P, 1. 
0000006 0000006 MOV FMT2,P 
0000006 Po. 


SSSESSESSESSSESSESIERS 
FVUKRNVSRKEVSRAVSFVK 


~ 
RSE 
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SEQ 180 
MISCELLANEOUS SECTIONS 8-Jul=-19 : VAX-11 Bliss=16 V3-555 As 44 93 
AZTEC GLOBAL ROUTINE 8-Jul-19 : SPIDERSUSERS: CLAKSHMANA. 11REL.REALIZRCFA (34 


0000006 
0000006 0000006 
0000006 0000006 
0000006 0000006 
000001 


#1,R 
a 
0000006 7$: 7. 

PC 


3; Routine Size: 88 words, Routine Base: ABSCODE + 13504 
: Maximum stack depth per invocation: 5 words 





M14 


SEQ 181 
MISCELLANEOUS SECTIONS 8-Jul-1983 15:23: VAX-11 Bliss=16 V3-555 page 94 
AZTEC GLOBAL ROUTINE B-Jul-1985 14:44: SPIDERSUSERS: CLAKSHMANA.11REL..REALIJZRCFA (35 


9g 9 lobat routine DM_ADDR_SETUP : novalue = 


THIS ROUTINE PASS TRANSMITTING AND RECEIVING BUFFERS STARTING 
ADDRESS TO DM CODE 


a3 
og 


IMPLICIT INPUTS 
DM_XMT 
DM~REC 


MAGIA AVMVIUIVIUT 
WN “OC OVONOUS 


SS25°S MVUMIMVvIVvIV 


WWAWAWWNWAAA 
wiv 


XMT_DATA_BUF [0]; ' XMT BUFFER 1 STARTING ADDR. 
RCV_DATA_BUF [0J; ' REC BUFFER 1 STARTING ADDR. 
ET_STATUS = FALSE; 


-SBTTL DM.ADDR.SETUP AZTEC GLOBAL ROUTINE 
012767 0000006 0000006 DM.ADDR.SETUP:: 
MOV #XMT.DATA.BUF ,DM. XMT 


000006 012767 000000G 0000006 MOV #RCV.DATA.BUF ,DM.REC 
000014 7 9000006 CLR RET.STATUS 
000020 RTS PC 


; Routine Size: 9 words, Routine Base: ABSCODE + 13764 
: Maximum stack depth per invocation: 0 words 


5 
S 


3571 
3572 !<BLF/PAGE> 





N 14 
SEQ 182 
MISCELLANEOUS SECTIONS 8-Jul=19 : VAX-11 Bliss-16 V3=555 Pa 95 
AZTEC GLOBAL ROUTINE 8-Jul-19 : 3p DERSUSERS: CLAKSHMANA. 11REL.REALIZRCFA (36 
global routine WRT_PROTECT_TST : novalue = 


lee 
! FUNCTIONAL DESCRIPTIONS: 


THIS ROUTINE WILL ASK THE are TO MAKE SURE THE WRITE 
E UNIT : IN THE OFF POSIT IT 


WILL BE DONE T Ss 
THE UNIT IS WRITE E PROTECTED. 


begin 


DISPLAY MESSAGE "TURN OFF WRITE PROTECT SWITCH'’ THEN ISSUE 
A GET UNIT STATUS COMMAND AND EXAMINE THE UNIT FLAG. 


MANU_SW = ONE; ! MANUAL SWITCH IS SET TO ‘YES* 
GMANTL (asTi4, MANU_SW, 1, YES, 0); ! DISPLAY MESSAGE TURN OFF WRT 
! PROTECT SWITCH 


! PROGRAM WAITING FOR GO (CR) SIGNAL no 


if (.MANU_SW eqlu YES) , 
then ! WAITING FOR CR SIGNAL 


iy 
CMD_REF = 3; ' COMMAND REFERENCE NUMBER 


if GET_UNIT_STATUS () ! ISSUE A GET UNIT STATUS COMMAND 
then ! IF RESPONSE STATUS BIT ERROR, THEN 


begin 
REY. UNIT_FLAG = .RET_UNIT_FLAG and %0°020000"; ! MASKED OUT OTHER BITS 
if .RET_UNIT_FLAG eqlu UF_WPH ! IF WRT PROT. FLAG SET 
then ! ERROR 
begin 
RETRIES = TRUE; 
end; 
end; 
end 


else 
RETRIES = TRUE; 


i DISPLAY MESSAGE "‘TURN ON THE WRITE PROTECT SWITCH'* THEN 
: lait ec A Ay UNIT SATUS COMMAND AND EXAMINE THE RESPONSE 


SWITCH2 = ONE; ! SET MANUAL SWITCH 
GMANIL (QST15, SWITCH2, 1, YES, 0); i DISPLAY MESSAGE TURN OFF WRT 
i PROTECT SWITCH 


oe 
° 
. 
° 
. 
° 
. 
° 
. 
° 
. 
° 
. 
° 
. 
° 
2 
° 
. 
° 
2 
e 
© 
e 
oe 
° 
° 
o 
° 
e 
co 
° 
. 
° 
° 
e 
2 
e 
. 
e 
J 
° 
o 
e 
° 
° 
. 
e 
e 
° 
° 
e 
a 
o 
. 
° 
a 
e 
. 
° 
2 
° 
. 
co 
. 
° 
. 
° 
© 
e 
. 
e 
. 
o 
> 
e 
o 
° 
7 
° 
° 
o 
2 
oa 
o 
e 
. 
° 
. 
° 
o 
° 
° 
° 
. 
° 
os 
° 
o 
° 
7 
’ 
. 
« 
. 
° 
. 
° 
° 
° 
o 
a 
° 
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SEQ 183 
MISCELLANEOUS SECTIONS 8-Jul-1983 15:23:25 VAX-11 Bliss-16 V3-555 P 96 
AZTEC GLOBAL ROUTINE 8-Jul-1983 14:44:20 $PIDERSUSERS: LLAKSHMANA. 11REL .REALJZRCFA (36 


: PROGRAM WAITING FOR GO (CR) SIGNAL 


~N 
=D 
—o 
al 
® 


if (.SWITCH2 eqlu YES) 
then ! WAITING FOR CR SIGNAL 


bs 
CMD_REF = 4; ! COMMAND REFERENCE NUMBEX 


if GET_UNIT_STATUS () ! ISSUE A GET UNIT STATUS COMMAND 
then ! IF RESPONSE STATUS BIT ERROR, THEN 


begin 
REY. UNIT_FLAG = .RET_UNIT_FLAG and %0'020000"; ! MASKED OUT OTHER BITS 
if .RET_UNIT_FLAG nequ UF_WPH ! IF WRT PROT. FLAG CLEAR 
then i ERROR 
begin 
PRINTF (MSG, WRP_ERR2, .LOG_UNIT); ' 
ERRDF (73, ASG_COM_WPT, 0); i REPORT ERROR 


RETRIES = TRUE; 
end; 


else 
RETRIES = TRUE; 
end; 


return, 
end; 


. 
° 
° 
° 
. 
° 
° 
° 
° 
° 
* 
° 
. 
° 
° 
° 
° 
° 
2 
c 
° 
° 
. 
° 
o 
oO 
. 
° 
* 
¢ 
° 
° 
° 
° 
© 
e 
> 
° 
° 
° 
. 
° 
© 
° 
° 
° 
. 
o 
- 
oO 
a 
e 
. 
a 
o 
° 
° 
e 


-SBTTL_ WRT.PROTECT.TST AZTEC %i.0BA! ROUTINE 
000001 0000006 pomtestraett *™ saad! © 


0000006 000001 

000003 0000006 #3,CMD.REF 
7 175436 + aah natant artceatans 

$ 

157777 0000006 #157777 RET.UNIT.FLAG 
0000006 020000 MP RET .UNIT.FLAG, 420000 
000001 0000006 gL METRICS 
000001 0000006 : #1,RETRIES 
000001 0000006 : MOV #1 -SUl teks 


404 
SWITCH2 
130 








c 15 


MISCELLANEOUS SECTIONS 8-Jul-1983 15:23:2 VAX-11 Bliss-16 V3-555 
AZTEC GLOBAL ROUTINE B-Jul-1983 14:44: 


re 
0000006 000001 MP ty TCH2 #1 


SEQ 184 
7 


Pa B 
20 SPIDERSUSERS: CLAKSHMANA, 11REL.REALIZRCFA (36 


Se & 
Ss 


000004 0000006 #4,CMD.REF 
175332 PC ,GET.UNIT.STATUS 
2 
157777 0000006 #157777 ,RET .UNIT.FLAG 
4 0000006 020000 MP a -UNIT FLAG, #20000 
000001 0000006 MOV * btonnes 
000001 0000006 is MOV 1 eshte 


Roo 
RAS 


: Routine Size: 69 words, Routine Boece ABSCODE + 14006 
: Maximum stack depth. per “invocation: 2 words 








D 15 


8-Jul-19 3 i 
8-Jul-19 


2:23:25 


MISCELLANEOUS SECTIONS 
T NE 4:44:20 


AZTEC GLOBAL ROUTI 
global routine AZTEC READY = 
FUNCTIONAL DESCRIPTIONS: 
rate ROUTINE CALL OTHER ROUTINES TO GET THE AZTEC READY 
DO THE DM OR READ/WRITE OPERATION. 
PERFORM OPERATIONS AS FOLLOWING ORDER: 
1. DEFINED INITIALIZATION CONSTANTS. 


2. DO STEP 1 THROUGH STEP 3 CHECK FOR ANY ERRORS 
IN EACH STEP. 


3. SET UP COMMUNICATION AREA’S. 
4. SET HOST SETTABLE UNIT CHARACTERISTICS AND OBTAIN THOSE 
UNIT CHARACTERISTICS THAT ARE ESSENTIAL FOR PROPER CLASS 
DRIVER OPERATION. 
yo ae A UNIT "UNIT-ONLINE. THE UNIT 
AND ITS HEADS ARE LOADED PRIOR TO RETURNING THE ONLINE C 
END MESSAGE. 


FORMAL PARAMETERS: 
“NONE - 


5 


IMPLICIT INPUTS: 

IMPLICIT OUTPUTS: 
AS A RESULT OF THIS ROUTINE THE COMMUNICATION AREA WILL 
BE INITIALIZED AND UNIT IS SPUN-UP. 

COMPLETTION CODES: 


SIDE EFFECTS: 
= NONE - 


IS SPUN-UP, IF NECESSARY, 
OMMAND 


VAX-11 Bliss-16 V3-555 
SPIDERSUSERS : CLAKSHMANA. 


s*s 


WRITE 


in 

B MASK = %0°17'; ' SET MASK BIT FOR COMPLETE INIT. 
DATAICIS, 1> = TRUE; ' SET BIT 15 FOR STEP-1 
DATA1<14, 1> = ! DIAGNOSTIC WRAP MODE 
DATA1<11, 3> = 2: ' SET UP COMMAND RINGS LENGTH 
DATA1<8, *3> = REC atte !' SET RESPONSE RING LENGTH 
DATAI<7, >= 0; ' DISABLE INTERRUP 
DATA1<0, 7> = 0: ' LOAD NO VECTOR ADDRESS 
DATA2 = RINGBASE; ' LOAD COMMUNICATIONS AREA ADDRESS 
ATA3S = ° ! HI-ORDER ADDR = Z 
DATA4 = %0'177403'; ' “LAST FAIL’ eit RESPONSE BIT SET 
CMD_SLOT = 0; ' CLEAR COMMAND RING SLOT NTER 
RES SLOT = 0; ' CLEAR i ae RING SLOT POINTER 
TICKS = 0; ' CLEAR TICK AREA 
SECONDS = 0; ' CLEAR SECOND AREA 
MINUTES = 0; ' CLEAR MINUTES AREA 


if AZP_LINIT () 
then 
return .RET_STATUS; 


DO STEP INIT AND CHECK FOR ERROR 


SEQ 185 
Page 98 
TIREL.REALIZRCFA (37 


E 15 


pee 186 
MISCELLANEOUS SECTIONS =~ Jul=-198 VAX-11 Bliss=-16 V3-555 
AZTEC GLOBAL ROUTINE guta1983 14 44:30 SPIDERSUSERS: CLAKSHMANA.11REL. REALIZRCPA (37 


~ 
zz 
-o 
_w" 
® 


if INIT_COM_AREA () ' INIT THE COMMUNICATION AREA 
hen ! ERROR ? 

return .RET_STATUS; 
CMD_REF = 01; ! SET COMMAND REFERENCE TO 1 
+. SET_CNTLR_CHAR () ' ISSUE SET CONTROLLER CHAR CMD 

then 

return .RET_STATUS; ! IF COMMAND FAILED 
CMD_REF = 2; ! SET COMMAND REFERENCE TO 2 
if ON_LINE () ! ISSUE ON LINE CMOOAND 
then ! IF COMMAND FAILED 

return .RET_STATUS; 


return RET_STATUS = FALSE; 
end; 


seerre AZTEC.READY AZTEC GLOBAL ROUTINE 
112767 000017 0000006 AZTEC.READ 
move. 7,B.MASK 


012767 122000 0000006 #122000, DATA1 
0000006 0000006 MOV #RINGBASE ,DAT 


0000006 DAT. 
177403 0000006 #~375 DATA 
0000006 


CMD. SLOT 
0000006 RES.SLOT 
0000006 TICKS 
0000006 


0000006 MINUTES 
165324 PC,AZP.INIT 
ROR RO 


Bete Se Se Se Se Ge Se Ge Se Se 


1$ 
0000006 MOV RET.STATUS,RO 
166104 3 PC, INIT.COM.AREA 
ROR RO 


2s 
0000006 MOV = leat 
000001 0000006 : #1,CMD.REF 
7 171264 ~ iahheneemenmee 
3$ 
0000006 MOV ne T -STATUS AO 


20 C 
000002 0000006 : MOV #2,CMD.REF 
7 172524 aerate 


SSENSSVNENEERO 


4 
0000006 MOV RET. STATUS ,RO 
0000006 : ~ ata 


gusesassnscsesenees 








ZRCFA2 MISCELLANEOUS SECTIONS 
v01.0 AZTEC GLOBAL ROUTINE 


000172 000207 


3; Routine Size: 62 word Routine Base: 
> Maximum stack depth ner "invocation: 


1 word 


F 15 


B8-Jul-19 
8-Jul-19 


RTS PC 
ABSCODE + 14220 


VAX-11 Bliss=16 V3-555 


SPIDERSUSERS : CLAKSHMANA. 


SEQ 187 

Pose 1 
TIREL.REALIJZRCFA (37 
3659 





G 15 


SEQ 188 
pb eh ge ate 2 He 8-Jul-1983 LF be 3 VAX-11 Bliss=16 V3-555 Pose 101 
AZTEC GLOBAL ROUTINE B-Jul-1983 14:44:20 SPIDERSUSERS : CLAKSHMANA. 11REL.REALIZRCFA (38 


1 global routine DO_RETRIES : novalue = 


i COME HERE ON AN ERROR AND KEEP TRACK OF RETRIES. 
i IF NECESSARY DROP UNIT UNDER TEST. 


i 
n 
AGA RETRIES = .NUM_RETRIES + 1; 
if (.NUM_RETRIES Llequ .SWP_RETRIES) 
then 


pore 
PRINTS (FMT$A, .NUM_RETRIES); 
end 
else 
peste 
RETRIES = FALSE; 
if not .SWP_CONTINUE 
then 


pogin 

DODU (.LOG_UNIT); 
DOCLN; 

end; 


end; 


TTL DO.RETRIES AZTEC GLOBAL ROUTINE 


NUM.RETRIES 
a eRETRIES,SWP.RETRIES 


NUM.RETRIES,-(SP) 
#EMTSA,-(SP5 
#2,-(SP) 


+ deal 
0000006 1$: RETRIES 
000001 0000006 1 #1,SWP. CONTINUE 
0000006 ,96.UNIT RO 


44 
2$: PC 


z; Routine Size: 28 words, Routine Base: ABSCODE + 14414 
+ Max imum stack depth per invocation: 5 words 


- SB 
DO.RETRIES:: 
INC 





H 15 


SEQ 189 
MISCELLANEOUS SECTIONS 8-Jul-1983 15:23:25 VAX-11 Bliss=16 V3-555 Page 102 
AZTEC GLOBAL ROUTINE 8-Jul-1983 12:44:90 SP IDERSUSERS: LLAKSHMANA. 1 1REL.REALIZRCFA (39 


global routine DECODE : novalue = 'Decodes failing SA reg data 


144 

' Functional Description : 

4 Due to the implimentation of the DUP and UQ Port protocol there 
are two levels at which an issued command to a port/controller 
can fail and they are: 


1. The issued command can time out. 


2. An error can be posted in SA register bit 15 by the port to 
report an error. 


3. The issued command to the port/controller can be executed 
correctly without any errors but the response packet status 
field could have an error or status other than success posted. 


This routine will then be called when the return from a queued 

d comes back with an error code or non successfull status 

eee. ao 1s by definition when bit 0 in the returned status 
s equal to 1. 


Formal Parameters : 
none 


Implicit Inputs : 
RET_STATUS: Stored in this global storage is the returned error 
code = non=successful status code from a queued 
command. 


Implicit Outputs : 
none 

Completion Codes : 
none 


Side Effects : : 
after exoegt ten of this routine the RC25 controller 
is initialized aborting any DM code running in the controller. 


begin 
'¢ 
! Use the contents of ‘RET_STATUS"’ to select what 


! type error or non=successful status code is to 
: be processed. 


if .RET_STATUS eqlu ONE then return RET_STATUS = ZERO; ! NO ACTION IF RET_STATUS IS ONE 
selectoneu .RET_STATUS of 
set 
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‘Port/Controller time out’’ error code 





I 15 


MISCELLANEOUS SECTIONS 8-Jul-1983 15:2 
AZTEC GLOBAL ROUTINE B-Jul-19835 14:4 


' Port/Controller timed out after the specified 
: time out interval. 


SEQ 190 
5 VAX-11 Bliss-16 V3-555 p 103 
0 LP IDERSUSERS:LLAKSHMANA. 11REL.REALIJZRCPA (39 


La] 
wD 
-o 
_™" 
og 


3:2 
4:2 


CCTO_CODE] : 'Code equals %0°11° 


in 
PRINTF (.EMSG_STRUCT CMSG3J); 
end; 


Y 
‘Port fatal error’’ code 
i The error bit in the SA Register was set when 
: examined. This error indicates a Port fatal error code. 
CPFE_CODE) : 'Code equals %0'21' 
Begin 
TEMP = .RC25_DATA CRCSA, RCSA_ERC); 
if .TEMP gequ 200 
then 


begin 
PRINTF (.RC_STRUCTURE C.TEMP = 200); ‘print RCSA error code 
en 

else 


fe 
Aaiengy (.PFE_STRUCT C.TEMP]); 
end; 


end; 
i "Return status error’’ code 
i This indicates that a non-successful return status 
' code was returned from an issued command. 
CRSE cones : 'Code equals %0°31' 
egin 
PRINTF (.EMSG_STRUCT CMSG0J); 
i Look at UQPORT connection ID field to determine the type 
of response 
‘f -REC_ENVELOPE C.RES_SLOT, CONN_ID] eqlu 2 ! CONN_ID = DUP 
en 


begin 
PRINTF (.SDUP_STRUCT C.REC ENVELOPE C.RES_SLOT, STATUSJJ); 
else 


begin 
PRINTF (.SMSCP_STRUCT C.REC_ENVELOPE C.RES_SLOT, STA_CODEJ)); 
end; 


end; 
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MISCELLANEOUS SECTIONS 8-Jul-198 
AZTEC GLOBAL ROUTINE 8-Jul-198 


: “SERIOUS EXCEPTION’ error code 


~N 
@ 
oO 
taal 
® 


SEQ 191 
3 15:23: VAX-11 Bliss-16 V3-555 Page 104 
3 14:44: SP IDERSUSERS : CLAKSHMANA. 11REL .REALJZRC A (39 


= 


CSEX_CODE] : 'Code equals %0°601" 


egin 
PRINTF (.EMSG_STRUCT CMSG2J); 
end; 


1 
' This is here to trap any unknown return status codes 
: sent to this routine. 


Cotherwise) : !Code equals non of the above 


begin 

PRINTF (.EMSG_STRUCT CMSG3)); 
: end; 
es; 


i 
: ALL errors are fatal so init the RC25 


WRT_RC25 (RCIP, ALL_ONES); !Init the controller 
RET_STATUS = ZERO; 

return; 

end; 


-SBTTL DECODE AZTEC GLOBAL ROUTINE 
DECODE : :MOV 


R1,- 
0000006 000001 oe RET. STATUS #1 
RET.STATUS 
RET.STATUS,R1 
R1,411 


0000006 
7 000400 


EMSG. STRUCT+6,-(SP) 
a P) 


° 


17 
9$ 
R1,#21 

0000026 0000006 RC25.DATA+2, TEMP 

174000 0000006 #174000, TEMP 

0000006 000310 MP TEMP, #310 

0000006 MOV TEMP, RO 

1771606 RC. STRUCTURE-620(RO) ,-(SP) 
000001 #1,-(SP) 


e 
e 


Ss 
17 
BR 9$ 

0000006 : alla 

0000006 PFE.STRUCT(RO) ,~(SP) 


SSeeeseses 
KESSRVAVSR 


S 





=ooo 
par Por Pers 


Se 


& 
QOOnNS 


x 


anoow 


MISCELLANEOUS SECTIONS 
AZTEC GLOBAL ROUTINE 


000001 


000031 
0000006 
000001 


0000006 


000077 
0000036 000002 
0000006 
000077 
0000166 
0000006 

000001 

0000006 
000077 
0000166 


177740 
0000006 
000001 


000601 
0000046 
000001 


0000966 
000001 


EMSG. STRUCT (SP) 
#1,-(SP) 

RES.SLOT,RO 

RO 

RO 

RO 

R 

#77,R0 

SEC ENVELOPE SSEND? LAS 
RES.SLOT,RO 

RO 

RO 

RO 

RO 

REC. ENVELOPE+16(RO) ,RO 
yh: > arena 


6$ 
RES.SLOT RO 
RO 


RO 
RO 


#77,RO 
REC. ENVELOPE+16(RO) ,RO 
#177740,R0 


RO 
SMSCP.STRUCT(RO) , (SP) 
a P) 


(SP)+ 

R1,4601 

EMSG. STRUCT+4,~(SP) 
#1,-(SP) 

9$ 

EMSG. STRUCT+6,-(SP) 
#1,-(SP) 


VAX-11 Bliss-16 V3-555 
SPIDERSUSERS: CLAKSHMANA. 11REL.REALJ 


SEQ 192 
Page 105 
ZRCFA (39 
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SEQ 193 
ZRCFA2 MISCELLANEOUS SECTIONS 8-Jul-1983 15:23:25  VAK=11 Bliss-16 V3-555 Page 106 
v01.0 AZTEC GLOBAL ROUTINE B-Jul-1983 14:44:20  SPIDERSUSERS:CLAKSHMANA.11REL.REALIJZRCFA (39 
000404 012700 177777 9$: MOV RO : *,RCM.REG 3897 
000410 010077 0000006 MOV f0. anes. gAdor + RCM.REG,* 
000414 005067 0000006 CLR RET.STA : 3898 
000420 022626 CMP re AS : 3762 
000422 012601 10$: MOV (SP)+.R1 
000424 000207 RTS PC 


; Routine Size: 139 words, Routine Base: ABSCODE + 14504 
: Maximum stack depth per invocation: 6 words 


; 3901 
3 3902 
3 3903 end 
3 3904 
$ 3905 eludom 
3 OTS external reference 
-GLOBL $SAVES, SSAVE3, peeve? BLSSHF 

-GLOBL BLSDIV, BLSMOD, BLSMU 
3 PSECT SUMMARY 
: Psect Name Words Attributes 
: AASCODE 267 RO, I , LCL, REL, CON 
$ ABSCODE 3373 RO, I , LCL, REL, CON 
4 LIBRARY STATISTICS 
; re ee hd ee he aE morengs w= Symbols o<ooo--= Blocks 
: File Total Loaded Percent Read 
: SPIDERSUSERS : CLAKSHMANA. 11REL.REALJAZTECO.L16;1 
: 523 212 40 77 
3 COMMAND QUALIFIERS 


; BLISS /PDP11/LIST ZRCFA2.B16/EN:NOEIS 


; Size: | 3581 code_+ 59 data words 
3; Run Time: 2 

: Erapeee Time: 07: 29.4 

Z pom | Used: 253 pages 

: Compilation Complete 


Mm 15 


8-Jul-1 
8-Jul-1 


one 194 


VAX-11 Bliss-16 V3-555 page 1 
11REL.REALIZRCFA (1) 


CZRCFAO RC25 FR END TEST 
$PIDERSUSERS: CLAKSHMANA. 


ZRCFA3 


MODULE ZRCFAS “TENT "CZRCFAO RC25 FR END TEST’ 


= 'v01.0", 

OPTLEVEL = 0, 

ADDRESSING. MODE (RELATIVE) 
BEGIN 
1 <BLF /LOWERCASE_KEY> 
isbttl "TEST SECTION’ 
library ‘AZTECO’; 
require "BLSMAC.REQ’; 


structure 
RC25 CO, P, S, E] = 


! AZTEC LIBRARY 
! DIAGNOSTIC SUPERVISOR LIBRARY 


! DEFINE ACCESS ALGORITHM TO 
ALLOW FIELD REFERANCES TO 
THE RC25 


begin 


local 
RC_REG; 


RC_REG = .(RC25 + %upval*0)<0, %bpval, 0>; 
RC~REG 


en 
<P, S, E>; 
'<BLF /PAGE> 


keh ee ek ed ed ed ed ed 
MMVIMVIVIVIUIY) 
at II IOO 
AUSWN—O OC 
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ZRCFAS seers. mee FR END TEST 8-Jul-1 


a 195 
983 15:31:08 VAX=-11 Bliss=-16 V3=555 
v01.0 TEST B8-Jul-1983 14:46:50 


2 
SPIDERSUSERS : CLAKSHMANA.11REL. REALIZRCPA (2) 


it$( global), 
"$GL0BS nowrite, noexecute, global, concatenate), 


wn 
CMDBF1 : block (16, word] field (PACKET_FIELDS), | ! COMMAND BUFFER 1 
ENDBF1 : block £16, word] field (PACKET-FIELDS), | END MESSAGE BUFFER 1 
RING_B : vector C32, word), ' COMMAND BUFFER=16 WO WORDS 
WITH 16 WORDS BELOW F 


END MESSAGES 
: yer tor 3, best. preset ( 
%o'1 ! DATA PATTERN 1 
zo; baae ! DATA PATTERN 1 
10+ 033303" ar i DATA PATTERN 1 


ector C3 word] preset ( 
%0'177400", ! DATA PATTERN 2 
£05007 760", i DATA PATTERN 2 
%0'000377'"5 i DATA PATTERN 2 


ector (3 word] preset ( 
%0°155555', ! DATA PATTERN 3 
' DATA PATTERN ; 


! DATA PATTERN 
ector (3 eal preset ( 
%0'000377" ! DATA PATTERN 4 
' DATA PATTERN 4 
Zo ' DATA PATTERN 4 
HOST_BUF : vector (260, word); ! HOST BUFFER AREA 


external 
HARDWARE P TABLE DATA IS STORED HERE 
RT_TABLE : ref block CWORD1_IN_RT_TAB, word) field (RT_FIELDS), 
RC25_ADDR : ref RC25 field TRC_REG), REGISTER ALGORITHM 


R25 oe block (C2, nen etd (RC REG), i ACSA DAT 
UNIT UNIT UNDER TEST 


i hr = bette ae 


DATA_PAT2 : 


RSS SUN ooo 
MEWN —SO VONOUSWN—OOO~) 
J 
Po 
oH 
& 


DATA_PATS : 


DATA_PATG : 


BRRRRRRRRRWW 


rd, 
: word, 


! INTERRUPT us 
: ! INTERRUPT FLAG 
: blockvector Phee “ALLOCATE + SND -ALLOCATE + HDR_SIZ, 2, word], 
3 block (4, word] ed = DR-FIELD), 
: ref blockvector CREC_ALLOCATE, 5 word] field (DSC_FIELD), 
blockvector CSND ALCOCAT TE, 2. word) field ( DSC_FI ELD). 
E : blockvector CREC PALLOCATE, 'R RB_SIZE + 2, word] shld (ENV. FIELD), 
: blockvector CSND-ALLOCATE, SB_-SIZE + 2, word] field (ENV_FIELD), 
F : vector (256, word], 
: vector (256, word], 
' RING BASE ADDRESS 
: word volatile, ! BUFFER DESCRIPTOR AREA 
$ word volatile, Swe ane cast BUFFER 
i 


ADAAADARAGCAAAAOOMUMUUMIVUVIVUIVIUIVYT 


CMD-SLOT : word volatile, COMMAND RING SLOT 
RES_SLOT : word volatile, RECEIVE RING SLOT 
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abv SEQ ~ 
5 FR END TEST @Jul-1983 15:31: VAX-11 Bliss-16 V3-555 P 
B-jut=198 12:46:50 SP IDERSUSERS:LLAKSHMANA. 1 1REL.REALIZRCFA (2) 


Sz 
Oo 
_™" 
QS 
wv 


: vector (93, word], 
: vector (58, word 
vector 100. word. 
vector word 
: vector 119. d 
19 : vector (113, 
. vector (132, 
-$8 : vector " ; 
OM : vector (260, word], 
BYTE COUNT : word volatile, 
MSGAB: 


R : word volatile, 
VEC_AD_: byte volatile, 
MEM_SIZ : 


: word, 
P_MASK : byte volatile, 
8 : byte volatile, 
DATA1 $ word, 
DATA2 : word volatile, 
DATAS : word volatile, 
A4 : word volatile : 
END_L8N : word volatile, i ENDING LOGICAL BLOCK # 
SWP_CONTINUE : word volatile, 
SwWP : word volatile, ' SOFTWARE P-TAB MANUAL SWITCH 
' MENUAL INTERVENTION SWITCH1 
' MENUAL INTERVENTION SWITCH2 
_UNIT_FLAG : word volatile, ' RETURN UNIT STATUS BUFFER 
P1 = word volatile, ' FORMAT ADDRESS FOR ERROR REPOT 
P2 : word volatile, ' FAILING FRU 
: word volatile, ! FA 
: word volatile, ! 
: word volatile, ' 
P6 : word volatile, ' DATA FOR ERROR REPORT 
LBN : word volatile ! DATA FOR LBN 
: word volatile, i DATA FOR STARTING LBN 
: word volatile, ' DATA FOR ENDING LBN 
: word volatile, ' LBN INCREMENTING SIZE 
s ' LOC. TO RETURN CLOCK ADDR. 


CLK_START : word, ! THE CLOCK TING VALUE 

TICKS : word volatile, ! THE # OF CLOCK INT. BUFFER 

SECONDS : ! THE NUMBERS OF SECONDS BUFFER 
! THE NUMBERS OF MINUTES BUFFER 
! STARTING TRACK BUF 

SWP_END, ! ENDING TRACK BUF 

BUF LENGTH, ! BUFFER LENGTH 

’ ! TEMP. BUFFER 
FREE _MEM_ADDR, ! STARTING FREE MEMORY ADDR. 
MEM_SIZE ; MEMORY SIZE 
4 


St eR re 


NS 


8S 


Wr 


me me ee ae ee ee ee ee ee ee ee ce ee ed ed ed ed ed ed ed ed 
Se 
ww 


S228 


es 


AAAAAAAAACD 
od od od od od od edd 
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MM 
CONAULSWN Ovo 


} yesyor BUFFE 
' RC25 ADDRESS 
! COMMAND STATUS BUFFER 

! ADAPTOR FRU ME 

! PLIT LOCATION TO STORE DATA 
! ERROR MESSAGE 1 IN MOD 1 

! ERROR MESSAGE IN TEST 
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C 16 


SEQ 197 
ZRCFA3 CZRCFAO RC25 FR END TEST -Jul-1983 15:31:08  VAX-11 Bliss-16 V3-555 Pp 4 
v01.0 TEST SECTION et ets 14:46:50 SP IDERSUSERS:CLAKSHMANA, 11REL .REALIZRCFA (2) 
: 1631 mSG_7, ! ERROR MESSAGE IN TEST 
: 1632 mSG_8, i ERROR MESSAGE IN TEST 
; 1633 MSG_ i ERROR MESSAGE IN TEST 
3 16 mSG_10, i ERROR MESSAGE IN TES 
: 1635 MSG_11, i ERROR MESSAGE IN TEST 
; 1636 MSG_13, i ERROR MESSAGE IN TEST 
; 1637 MSG_14, i ERROR MES N TEST 
: 1638 MSG_17, i ERROR MESSAGE IN TEST 
; 1639 mSG_18, i ERROR MESSAGE IN TEST 
; 1640 MSG_19, i ERROR MESSAGE IN TEST 
: 1641 MSG_20, i ERROR MES IN TEST 
; 1642 MSG_21, i ERROR MESSAGE IN TEST 
; 1643 MSG_28, i ERROR MESSAGE IN TEST 
: 1644 MSG_29, ' ERROR MESSAGE IN TEST 
; 1645 $G_ 30, i ERROR MESSAGE IN TEST 
: 1646 QsTT2, i MESSAGE 
: 1647 QST13, i MESSAGE 
: 1648 S114, i MESSAGE 
: 1649 QsT15, i MESSAGE 
; 1650 END_MSG, i ERROR MESSAGE IN TEST 
: 1651 FMTT, i FORMATTED MESSAGE 
: 1652 FMT2, i FROMATTED MESSAGE 
; 1653 FMT3, i FORMATTED MESSAGE 
: 1654 FMTS, i FORMATTED MESSAGE 
; 1655 FMTS, i FORMATTED MESSAGE 
: 1656 FMTO, i FORMATTED MESSAGE 
: 1657 FRU, i FRU = MESSAGE 
: 1658 FMTSA, 
: 1659 DBM7, ! TEST HEADER MESSAGES 
: 1660 DBM8, 
: 1661 DBM9 
; 1662 DBM10, 
; 1663 DBM11, 
: 1664 DBM12, 
; 1665 DBM13, 
; 1666 DBM14, 
: 1667 DBM15, 
3 1668 DBM16, 
: 1669 DBM17, 
: 1671 DBM19, 
: 1672 DBM20, 
: 1673 DBM21, 
: 1674 DBM22, 
: 1675 DBM23, 
: 1677 DBM25, 
: 1678 DBM26, 
: 1679 DBM27, 
; 1680 DBM28, 
; 1682 DBM30, 
3 1684 DBM32, 
: 1686 DBM37, 
: 1687 DBM38, 





D 16 


SEQ 1 
TEST ~Jul=1983 15:31:08  VAX-11 Bliss-16 V3-555 P 
yOr0 eet Sect ion soho hew gata 1983 12346350 $PIDERSUSERS:LLAKSHMANA. 11REL.REALIZRCFA (2) 


3 


5 1 DBM39 

: 1689 ! ERROR MESSAGES 

; 1690 E 

; 1691 MSG STATUS_ERR, 

: 1692 AHEAD_MSG, 

: 169 BHEAD_MSG, 

: 1694 CHEAD-MSG, 

3 1695 EAD-MSG, 

3 1696 MSG_BOSA_ERR, 

: 1697 SG_ADDR_ERR, 

: 1698 MSG_DATA_ERR, 

: 1699 “ERR CONT, 

: 1700 MSG_SEER_ERR, 

: 1701 “TK _DSP, 

: 1702 MSG_LBN_DSP, 

: 1703 MSG_HSWICH_ERR, 

; 1704 MSG_SURFACE_ ERR, 

: 1705 MSG_READ_ERR, 

: 1706 MSG_SAC_ERR 

: 1707 MSG_AVE-TIME, 

: 1708 MSG_PT_ERR1 

: 1709 MSG_WRP_ERR2, 

: 1710 SG_COM_WPT, 

: 1711 AZT_READY_ERR, 

: 1712 EXE—SUP_ERR, 

: 1713 SND ~DATA_ERR, 

: 1714 RE_BATA_ERR, 

3 1715 BUFF_ERR, 

5 1716 DMC_ERR, 

: 1717 RERR, 

: 1718 TIP; 'TEST IN PROGRESS 
: 1720 external routine 

: 1721 NXMI : novalue, 

: 1722 AZT_INIT, 

3 1723 AZP_INIT, 

: 1724 FIND CLOCK : novalue, 
: 1725 OCR_INIT : novalue, 
: 1726 RC25SERR_RPT : novalue, 
: 1727 INIT_COM~AREA 

: 1728 SET_INT_VECTOR : novalue, 
: 1729 REC” STATUS, 

: 1730 EX_SUP_PRG, 

: 1732 REC_DATA, 

: 1733 SEND_DATA, 

: 1734 SET_CNTLR_CHAR, 

: 1735 AVATLABLE; 

: 1736 READ_CMD, 

: 1737 READ-FILL_RING, 

: 1738 ON_LIN 

: 1739 GET_UNIT_STATUS, 

: 1740 GET~CMD_SLOT, 

: Hoe OF ERAGE. TIME 

: 1743 EXAM_DATA, ' EXAMINE THE FREE MEMORY DATA 
: 1744 DM_ADDR_SETUP : novalue, i PASS ADDR. TO DM PROGRAM 





ZRCFAS ere. 4524 FR END TEST 
v01.0 TEST S$ 


DATA_XMT_REC : Lue 
WRT PROTECT. 1ST : novalue, 


READY, 
DO. RETRIES : novalue; 
' <BLF /PAGE> 


E 16 


posal a 1968 1327) 298 
~Jul-1983 14:46:50 
‘ 


i WRITE PROTECT ROUTINE 
i GET AZTEC READY 


VAX-11 Bliss=16 V3-555 
SPIDERSUSERS : CLAKSHMANA. 


SEQ 199 
Poge 6 
TIREL .REALIZRCFA (2) 





F 16 


ZRCFAS Sh 44 FR END TEST 8-Jul- 


SEQ 200 
1983 15:31: 208 VAX-11 Bliss=16 V3-555 4 
v01.0 TEST $ 8-Jul-1983 14: 0 


P. 
46: SP DERSUSERS: CLAKSHMANA. 11REL.REALIZRCFA (3) 


ore a EXISTENCE TEST 
THIS TEST WILL FIRST CHECK FOR THE EXISTENCE OF THE ADDRESS OF THE IP 
AND SA REGISTERS FOR THE DEVICE UNDER 
IF THESE MEMORY ADDRESSES ARE NON-EXISTENT, THE ERROR WILL BE 


REPORTED. 
IF THE OPERATOR HAS SPECIFIED LOOP ON ERROR, LOOPING WILL BE FROM THE 
BEGINNING OF SUB TEST. 


MPAAAMMUIVIW 
DWDONOULSWN— 


ARAL 


if .SWP_TRACE then PRINTF (DBM7); ! TEST 1 


SHUE- 


oo 
pay 


3S 


BGNSUB; 
NUM_RETRIES = ZERO; !' CLEAR RETRY COUNTER 
sy gin RETRIES lequ .SWP_RETRIES) do 


TAM NE FALSE; ! CLEAR OUT NEX FLAG 
SETVEC. (4, NXMI, PRIO7); ! SET UP FOR AN NEX TRAP 


if .(.RT_TABLE CRT_IP_ADDRESS] + 2) ! READ THE SA REGISTER 

then ! THIS IS SO THAT IF THERE 
—— ! IS AN NEX THERE WILL BE 
DUMMY = 1; ! A SINGLE OPPERAND INST. 
end; ! SO THAT IT WILL TRAP 

CLRVEC (4); ! CORRECTLY. 

4 -ILAM_NEX eqlu ALL_ONES ! SEE IF WE GOT AN NEX 

en 


! ADDRESS NOT THERE 


ey 
NN 
INN 
wr 


at ss od 
SNNNNNN y 
CooNNNNN 

SWONOUM 


SN NNN SIS 
WWNAULSWN— 


P3 = 0; 
P4 = (.RC25_ADDR) + 
ERRDF FG, MSG_1 » ac2sbERR RPT); ! PRINT ERROR MESSAGE 


CKL 
DO RETRIES 0; 
eng; 


if (.NUM_RETRIES eqlu ZERO) then exitloop; 

end; 
NUM_RETRIES = ZERO; ' CLEAR RETRY COUNTER 
ENDSUB; 
BGNSUB; 


while (.NUM_RETRIES lequ .SWP_RETRIES) do 
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, SEQ 201 
ZRCFAS CZRCFAO RC25 FR END TEST 8-Jul-1983 15:31:08 VAX-11 Bliss=-16 V3-555 Page 8 
v01.0 TEST SECTION B-Jul-1983 14:46:50 SPIDERSUSERS : CLAKSHMANA. 11REL.REALIZRCFA (3) 


33 


I NEX = FALSE; ! CLEAR TRAP FLAG 
SETVEC (4, NXMI, PRIO7); ! SET UP TRAP VECTOR IF NEX 


Z -(.RT_TABLE CRT_IP_ADDRESSJ) ' READ IP REGISTER 
en 

begin 

DURMY = 1; 

end; 
CLRVEC (4); ! CLEAR THE VRCTOR 
i - 1 AM_NEX eqlu ALL_ONES ' CHECK FOR TRAPS 

en 


$5 2828 3809 0202 03 09 02 0902 0209 o2 
WONAULSWN—O 


RR 


ADAPT; 
P4 = .RC25_ ADDR; 
ERRDF (2, MSG_2, RC25SERR_RPT); ! PRINT OUT ERRO MESSAGE 


CKLOOP; 
DO_RETRIES (); 
end; 
if (.NUM_RETRIES eqlu ZERO) then exitloop; 
end; 
if - 1 AM_NEX eqlu ALL_ONES ! IF REGISTERS ARE NON-EXISTENT 
en 
! THEN DROP THE UNIT FROM TESTING 


eee ee ee ee et ee ed ed ed od = od od od = 


RERARARERS 
RUS FSSSNAGRUN LS 


Ww 
FWN—OVONOu 


000000 
WA 


cose 

DODU (.LOG_UNIT); 
DOCLN; 

end; 


ENDSUB; 
ENDTST; 


mee me ee ee ee ed ed ed ed ed ed = od = = 


FRRKE 


-TITLE ZRCFA3 CZRCFAO RC25 FR END TEST 
-IDENT /V01.0/ 


P 
CMDBF1: .BLK 
ENDBF 1: 


RING.B: .BLKW 
111111 DATA.PAT1: 


2WOR 
DATA.PAT2: 
-WOR 


“WORD 
WORD 
DATA.PATS: 





ZRCFA3 
v01.0 


133333 
066666 
000377 


170017 
177400 


CZRC 
TEST 


CFAO 4774 FR END TEST 
SECTION 


H 16 


8-Jul-1 : VAX-11 Bliss-16 V3-555 
8-Jul-1 : SP IDERSUSERS: CLAKSHMANA. 


WORD 
DATA.PAT4: 


377 
-7761 
-400 


404 


RT.TABLE, RC25. otk Pag DATA 

UNIT, -UNIT, RET 2 NUM.RETRIES 
SWP. TRACE, SUP;RETRIES. ” 1. AM.NEX 
CANCEL.TIMER, COM.AREA, AR 

RECEIVE .RING, oe sRING REC. ENVELOPE 
SND. ENVELOPE, ved gy aye -DATA.BUF 


$12, MASK 

A2, DATAS, DATAG, END LN 
SWP.CONTINUE, SWP.MANUAL 
SWITCH2, RET.UNIT.FLAG, P1 


» FREE. REM. ADDR 
H.SADD, H.EADD, INI.MSG 
“- TP ADDRESS. RET. STATUS 
MSG. 
MSG.11, MSG.13 
$6.19 


G. 6.28, MSG.29 
QSTi2, QST13, QST14, QST15 
em FMT2, FMT3, FMT4 
rkut F 
ani6 DBM11 
DBM1 


DBM26, 


rata ERR 

AVE. TIME, MSG.PT.ERR1 
P.ERR2, MSG.COM.WPT. AZT.READY.ERR 
UP.ERR, SND. DATA.ERR, RE.DATA.ERR 


BRERR, 
AZP. INIT. FIND. CLOCK 
McestenacneT OM 


RANDOM.NUM, REC. 
SET.CNTLR.CHAR, AVAILABLE, READ. CMD 
READ.FILL.RING, ON.LINE, GET.UNIT.STATUS 


SEQ 202 
Poge 9 
1IREL.REALIZRCFA (3) 





I 16 


SEQ 203 
8~Jul-1983 15:31:08 VAX-11 Bliss-16 V3-555 Page 10 
B-Jul-1983 14:46:50 SPIDERSUSERS: CLAKSHMANA.11REL.REALIJZRCFA (3) 


GET.CMD.SLOT, DECODE 1 pate TIME 
EX DR. SET DATA. XMT.REC 
WRT.PROTECT.TST, AZTEC. UREADY. DO.RETRIES 


ZRCFA3 CZRCFAO sf 14 FR END TEST 
v01.0 TEST SECTI 





000000 010146 
, 000001 0000006 


0000006 
000001 


0000006 
0000006 0000006 


000340 
0000006 
000004 
000003 


0000006 
000001 000002 


000001 
000004 


0000006 177777 


000001 0000006 
0000006 0000006 


000001 0000006 
7 0000006 


000010 


15 
7 000000G 


0000006 
000010 
000010 


$T1 TEST SECTION 
ACSCODE, RO 


R1,~(SP) 
#1,SWP. TRACE 


r+ wef =(SP) 
#1,-(SP) 
SP>R 


(SP)+,(SP)+ 


NUM.RETRIES 
, rctpbaser nes innethesesiareene 


@RT. TABLE ,RO 
#1,2(RO) 


#1,R1 
#4,RO 


6 
1. AM.NEX ,#=1 
5$ 


#1,P.MASK 
mire PI 


R25, ADDR RO 
#2,R0 

RO.P4 

55 


MSG.1 
RC25SERR.RPT 
65 

RO 

4$ 

#10,SP 
PC,DO.RETRIES 
NUM.RETRIES 


6$ 
#10,SP 
7$ 
#10,SP 
2$ 





ZRCFAS 
v01.0 


CZRCFAO RC25 FR END TEST 
TEST SECTION 


0000006 


0000006 0000006 
0000006 

00340 

0000006 

000004 

000003 

0000006 

000001 

000001 

000004 

0000006 177777 
000001 0000006 
0000006 0000006 


900001 0000006 
0000006 0000006 


000010 
0000006 
0000006 
000010 
000010 


0000006 177777 
0000006 


J 16 
8-Jul-1983 15: 
8-Jul-1983 14: 


.RETRIES 
i 
RO 

§ 


2 
ne ee 


@RT. TABLE RO 
#1, (RO) 

11$ 

#1,R1 

#4,RO 
1.AM.NEX,#=1 
13$ 


#1 ,P.MASK 
#FMT1,P1 


#1,P2 
RC25.ADDR. PA 


MSG.2 
RC25SERR.RPT 
65 


1. AM.NEX ,#~1 
LOG.UNIT,RO 
51 


9$ 
(SP)+,R1 
PC 


VAX-11 Bliss-16 V3-555 
SPIDERSUSERS : CLAKSHMANA. 


SEQ 204 
page 11 
TIPEL REAL IZRC A (3) 


3 Routine Size: 164 words, Routine_Base: ACSCODE + 0000 
: Maximum stack depth per invocation: 7 words 





ZRCFAS crneree RC25 FR END TEST 
v01.0 TEST SECTION 


004767 177264 
104466 
000006 006900 
000010 103773 
000012 000207 
: Routine Size: 6 words, Routine er 


+ Maximum stack depth per invocation: 2 words 


1845 !<BLF/PAGE> 


K 16 
8-Jul-1983 1 
88-Jul-1983 1 


T1 TEST SECTION 


ACSCODE + 0510 


VAX-11 Bliss=-16 V3-555 


SPIDERSUSERS : CLAKSHMANA. 


SEQ 205 
page 12 
11REL.REALIZRCFA (3) 





ZRCFAS 
v01.0 


WONAULSWN—OOONO 


VIM 


SEPERESS 


RRO 
OoN 


S 
r=) 


ee me ee ee ee ee a ce me me me ee ce ee ce ee ee ce ed ed ed ed aed ed od 
oo 
N 
= 


co 
N“ 
Nm 


L 16 


SEQ 2 
CZRCFAO RC25 FR END TEST 8-Jul-1983 15:31:08 VAX-11 Bliss-16 V3-555 Page 1 
TEST SECTION 8-Jul-1983 14:46:50  SPIDERSUSERS:CLAKSHMANA.11REL.REALIZRCFA (4) 
' 
BGNTST; 
'e¢ 
i TEST 2: INITALZATION TEST (POWER UP DIAGNOSTICS) 
i DESCRIPTION: 
i THIS TEST INIT* THE AZTEC AND RUNS THE POWER UP DIAGNOSTICS BY 
i WRITING WITH STEP1 DATA. THEN IT WILL CHECK FOR ERRORS AND 
REPORT IF AZTEC DOES NOT COME UPTO STEP2 READ 
; 
NUM_RETRIES = ZERO; ! CLEAR RETRY COUNTER 
if .SWP_TRACE then PRINTF (DBM8); ! TEST 2 


arte (.NUM_RETRIES Lequ .SWP_RETRIES) do 
egin 
4 STEP 1 WRITE WITH STEP 2 READ 


B_MASK = 1; ! SELECT B_MASK_FOR STEP 1 WRITE 
DATA1 = %0°137600° + .RT_TABLE CRT_VECTORI/4; ! SELECT STEP1 WRITE DATA WITH 
: pT by SIZES ,IE AND VECTOR 


if AZTLINIT (© PORT SHOULD NOW GET TO STEP2 
AFTER FINISHING INTEGRITY CHECK 


DIAG. IF NOT REPORT ERROR 


then 
pours 
ERRDF (3, MSG_14, RC25$ERR_RPT); 
if .RET_STATUS then DECODE (); 


DECODE STATUS 
CKLOOP; 
RETRIES = TRUE; 
end; 

if (.RETRIES) then DO_RETRIES (); 

if (.NUM_RETRIES eqlu ZERO) then exitloop; 


RETRY IF ERROR 


end; 
return; 
ENDTST: 
.SBTTL $12 TEST SECTION 
0000006 $72: CLR NUM.RETRIES ; 1857 
000001 0000006 eI #1,SWP. TRACE : 1859 
0000006 “MOV #DBM8B,-(SP) 
000001 MOV #1,-(SP) 
MOV SP.RO : SP,* 
TRAP 7 


1 
cMP (SP)+, (SP)+ 
0000006 0000006 1$: CMP SAAS PRIS AE TEES : 1861 


a 


5 SEQ 207 
ZRCFA3 creer. 5 14 FR END TEST 8-Jul=1983 15:31:08 VAX-11 Bliss=-16 V3-555 Page 14 
v01.0 TEST SEC 8-Jul-1983 14:46:50 SPIDERSUSERS: ELAKSHMANA.11REL.REALIZRCFA (4) 
000042 112767 000001 0000006 mMOVB anf MASK 3 1864 
000050 016700 0000006 MCV T. TABLE ,RO $ 1865 
000054 016046 000002 MOV BRO. =(§P) 
000060 012746 000004 MOV #4,-(5P) 
004767 0000006 JSR 8 Fray d bd 

000070 010067 0000006 MOV RO,DATAI 
000074 162767 040200 0000006 SUB #6000. DATA1 
000102 004767 0000006 JSR PC,AZT.INIT 3 1869 
000106 006000 ROR RO 
000110 103022 BCC 4$ 
000112 104455 TRAP 55 3 13874 
000114 000003 - WORD 
000116 0000006 -WORD MSG.14 
000120 0000006 -WORD RC25SERR.RPT 
000122 032767 000001 000000G BIT #1,RET.STATUS 3 1876 
000130 00140 BEQ g 
000132 004767 0000006 JSR PC ,DECODE 
000136 104465 2$: TRAP 65 
000140 006000 ROR RO 
000142 103002 BCC 3$ 

144 022626 CMP (SP)+,(SP)+ 
000146 000207 RTS PC 
009150 012767 000001 0000006 3$: MOV #1,RETRIES : 1879 
000156 032767 900001 0000006 4$: BIT #1,RETRIES $ 1882 
000164 001402 BEQ 5$ y 
000166 004767 0009006 JSR PC,DO.RETRIES 
000172 005767 0000006 5$: TST NUM.RETRIES 3 1884 
000176 001002 BNE 7$ 
000200 022626 CMP (SP)+,(SP)+ 
000202 000207 6$: RTS 
000204 022626 7$: CMP (SP)+,(SP)+ 3 1862 
000206 000711 BR 1$ 3 1861 
; Routine Size: 68 words, Routine Base: AC$CODE + 0524 
3; Maximum stack depth per invocation: 4 words 

-SBTTL T2 TEST SECTION 

000000 004767 177564 I: 
000000 1$: JSR PC,$T2 : 1888 
000004 104466 TRAP 66 
000006 006000 ROR RO 
000010 103773 BLO 1$ 
000012 000207 RTS PC 
3; Routine Size: 6 words, Routine Sese ACSCODE + 0734 


; Maximum stack depth per invocation: 2 words 


: 1890 !<BLF/PAGE> 


ss 


SEQ 208 
CZRCFAO RC25 FR END TEST 8-Jul-1983 15:31:08 VAX-11 Bliss=-16 V3-555 Page 1 
TEST SECTION 8-Jul-19835 14:46:50 SPIDERSUSERS: CLAKSHMANA.11REL.REALIZRCFA (5) 


BGNTST; 


<= 
oO 
— 


© 
Nm 


'¢ 


+ 
: TEST #3 = DIAGNOSTIC WRAP TEST 
DESCRIPTION: 
THE AZTEC WILL BE INITIALIZED IN DIAGNOSTIC WRAP MODE AND A ONE BIT 
AND ALSO ZERO BIT FLOATED THROUGH THE SA REGISTER TO SEE THAT IT 
ECHOES PROPERLY. 


' 

‘ 

; A FAILURE TO ECHO WHAT WAS WRITTEN WILL RESULT IN A CALLOUT TO THE 
ie 


09 09 09 C9 09 Co 
BRVEBRANS 


2332 


333 


ADAPTER CARD FRU. 


IF THE OPERATOR HAS SPECIFIED LOOP ON ERROR, THE PROGRAM WILL LOOP ON 
THE FAILING WRITE AND READ. 


SoscR 


WN 9S VONAULSWN—OVONOULSWN—O0OnN 


8 


local 
TST_PAT; 


if .SWP_TRACE then PRINTF (DBM10); 
NUM_RETRIES = ZERO; 
while (.NUM_RETRIES lequ .SWP_RETRIES) do 
pegtn 
TIP = 4; 
STEP1 WRITE 
"  B_MASK = 0; ! MASK FOR STEP1 READ 
DATA1 = %0*140000'; i STEP1 WRITE WITH WRAP MODE BIT SET 
DATA2 = %0°10'; i TIME OUT COUNT 
DATA3 = ZERO; i TEMP STORAGE FOR RCSA DATA 


if AZT_INIT () ' CALL STEP 1 ROUTINE 
then 


begin . 
ERADF (4, MSG_14, RC25$ERR_RPT); ! PRINT OUT ERROR REPORT 
RETRIES = TRUE; 
else — 
beatn 
WRT_RC25 (RCSA, .DATA1); ! DO STEP1 WRITE WITH DWM. 
wile ((.DATA3S nequ .DATA1) and (.DATA2 nequ ZERO)) do 
egin 

DELAY (333); 

DATA2 = .DATA2 - 1; 

paras = .RC25_ADDR CRCSA, RC_ALLJ; ! 

end; 


TST_PAT = %0°000001'; ! START TEST PATTERN TO 


ee NN San ach ustease 


WANA 


kk ak a ok tt so 


. 
° 
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me 
oe 
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NOUSWN—OOONOUM 


Oo 
x 





D1 


SEQ 209 
Z7RCFA3 CZRCFAO me FR END TEST B-Jul-1983 15:31:08 VAX-11 Bliss-16 V3-555 Pa 16 
v01.0 TEST SECTION B-Jul-1983 14:46:50  SPIDERSUSERS:CLAKSHMANA. 11REL.REALIZRCPA (5) 
: 1948 incru FLOAT from 0 to 15 do ' NOW KLOAT TEST PAT 
; 1388 begin ! 
: 1951 incru COUNT from 0 to 1 do ' FLOAT ZEROES AND THEN ONES 
; 1926 begin 
: 1954 if .COUNT eqlu 1 then TST_PAT = not .TST_PAT; 
: 1956 BGNS 
: 1957 WRT MeS5 (RCSA, .TST_PAT); ' WRITE TEST PATTERN TO SA 
: 1958 DELAY (10); i WAIT FOR IT TO ECHO. 
: 1959 REDS. DATA ERCSA, RC_ALL] = .RC25_ADDR CRCSA, RC_ALLJ; ! GET RCSA DATA 
: 1961 if .RC25_DATA CRCSA, RC_ALLJ nequ . H TEST SA FOR TEST PATTERN 
: 1962 then tit sor Fou 
; 1963 begin i PRINT OUT ERROR REPORT 
: 1964 Pp K = 2; 
3 1965 PT = FMT2; ' MESSAGE ADDRESS 
; 1966 P2 = ADAPT: i FAILING FR 
3 1967 P6 = (.RC25_ADDR) + 2; i FAILING ADDRESS 
; 1968 P4 = .TST sr T; i GOOD DATA 
: 1969 PS = .RC25_DATA CRCSA, RC_ALLI; ! BAD DATA 
: 1970 ERROF (3, ASG. 7, RC25$ERR_RPT); ! 
: 1971 CKLOOP 
: 1972 RETRIES = TRUE: 
: 1973 end; 
: 1974 
: 1975 ENDSUB; 
: 1976 end; 
s 1977 
: 1978 TST_PAT = not_.TST_PAT; 
: 1979 TST~PAT = .TST_PAT*1; ' SHIFT THE BIT DOWN 1 
: 1980 end; 
: 1981 
3 1s end; 
: 1984 if (.RETRIES> then DO_RETRIES (); ! DO RETRIES IF IN ERROR 
: 1986 if (.NUM_RETRIES eqlu ZERO) then exitloop; 
: Hb end; 
: 1990 WRT_RC25 (RCIP, ALL_ONES); 'REINITIALIZE THE PORT 
: 1991 ENDTST; 
.GLOBL LSDLY 
.SBTTL $13 TEST SECTION 
004167 0000006 $13: JSR R1,$SAVE4 : 1889 
000004 162706 000006 SUB #6,SP 
000010 032767 000001 000000G BIT #1. SWP. TRACE ; 1913 
000016 001407 BEQ 
000020 012746 0000006 MOV #DBM10,-(SP) 
24 012746 000001 MOV #1,-(SP) 


0000 2 
000039 010600 MOV SP,RO : SP,* 


CZRCFAO RC25 FR END TEST 
ECTION 


TEST S$ 


0000006 
0000006 0000006 
000466 
000004 0000006 
140000 0000006 


000010 0000006 
0000006 
0000006 


000412 
060001 0000006 
0000006 

0G 


000002 

0000006 0000006 
0000006 

000515 

0000006 

000004 


0000006 

0000006 

000002 000002 
000002 0000006 
000001 


060000 000001 


0000006 
000002 
000012 


4$: 
5$: 


6$: 


7$: 


8$: 


9$: 


10$: 


11$: 
12$: 
13$: 
148: 


15$: 


so 


8-Jul-1 
8-Jul-1 


17 
(SP)+, (SP)+ 


NUM.RETRIES 
 foteetipresce ncncthaoneess 


22$ 

#4,TIP 

B. MASK 

#~40000,DATA1 

#10,DATA2 
DATA3 

PC AZT. INIT 
RO 

56 

55 

4 

MSG. 14 

RC25$ERR.RPT 

65 

RO 

4$ 

23$ 

#1,RETRIES 
0$ 

DATA1,R1 
RC25 ADDR. RO 
DATA3,DATA1 


R2,R1 
RC25.ADDR,RO 
R1,2(RO) 
#12,R1 

18$ 


SEQ 210 
VAX-11 Bliss=-16 V3-555 : Poge 17 
SPIDERSUSERS: LLAKSHMANA.11REL.REALIZRCFA (5) 


1915 
1917 

: 1919 

: 1923 

: 1924 

: 1925 

: 1926 

: 1928 

: 1931 

: 1933 

; 1928 

> *,RCM.REG 1937 

: RCM.REG,* 

$ 1939 

: *,SSTMP2 | 1941 

: *,SSTMP1 

: SSTMP 

+ $$TMP1 

3; SSTMP2 

P 1942 

: 1943 

3: *,RC.REG 

; RC.REG,* 

: 1939 

: *,TST.PAT 1946 

+ FLOAT 1948 

: COUNT 1951 

: 1954 

: TST.PAT 

: TST.PAT,RCM.REG 1957 

: RCM.REG,* 

> *, $$TMPC 1958 


ZRCFA3 
v01.0 


: Routine Size: 
+ Maximum stack depth per invocation: 12 words 


ere. 5 34 FR 
TEST $ 


0000006 


0000006 

0000006 0000006 

000001 0000006 
000 
002 
0000006 
0000006 

0000026 0000006 


000001 0000006 


000017 
000001 0000006 


0000006 
0000006 


177276 


185 words, 


END TEST 


20$: 


21$: 


22$: 
238: 


Routine Base: 


, % 


8-Jul-19 
8-Jul-19 


LSDLY,RO 

17$ 

4(SP) 

RO 

16$ 

R1 

15$ 
RC25.ADDR,RO 
2(RO) , (SP) 
(SP) ,RC25.DATA+2 
(SP) ,R2 


#2,P.MASK 
are, P1 


p2 
F035 ADDR.RO 
#2,R0 


e 


R2,P4 
RC25.DATA*2,PS5 


MSG.7 
RC25SERR.RPT 
65 

RO 

19$ 
#1,RETRIES 
67 


12$ 
#1,RETRIES 
PC,DO.RETRIES 
NUM.RETRIES 


#-1,R0 
RO,@RC25.ADDR 
a$,SP 


a. 
we 


ACSCODE + 0750 


-SBTTL 13 TEST SECTION 


VAX-11 Bliss-16 V3-555 
SPIDERSUSERS : CLAKSHMANA. 


; *,SSTMP1 
; SSTMP 

; SSTMP1 

; SSTMP2 


*,RC.REG 
; RC.REG,* 
; RC25.DATAt2, TST.PAT 


; TST.PAT,* 


; COUNT 
; COUNT,* 


; TST.PAT 
TST.PAT 


; FLOAT 
; FLOAT,* 


; *,RCM.REG 
; RCM.REG,* 


SEQ 211 
Page 18 
11REL.REALIZRCFA (5) 





G 1 


ZRCFAS creer. 45 44 FR END TEST 
01.0 TEST SEC Bo jut=19 


004767 177212 
104466 

000006 006000 

000010 103773 

000012 000207 


3; Routine Size: 6 words, Routine Base: ACS$CODE + 1532 
> Maximum stack depth per invocation: 2 words 


1992 !<BLF/PAGE> 


VAX-11 Bliss-16 V3-555 
SPIDERSUSERS: CLAKSHMANA. 


SEQ 212 
ooge 19 
TIREL.REALIZRCFA (5) 


1990 





h 1 


SEO 213 
CZRCFAO RC2S FR END TEST 8-Jul-1 108 -VAX=11_BLiss-16 3-555 20 
TEST SEC 8-Jul-1 185 SBIDERSUSERS:ELAKSHMANA. 11REL.REALIZRCPA (6) 


BGNTST; 


'+¢ 
; TEST #4 = VECTOR AND BR LEVEL TEST 


a 


THE INIT SEQUENCE WILL BE STARTED WITH THE INTERRUPT ENABLE BIT SET TO 
VERIFY THE AZTEC'S VECTOR AND BR LEVEL. 


THIS TEST ASSUMES THE VECTOR GIVEN BY THE OPERATOR IS CORRECT. 

THE PRIORITY LEVEL OF THE INTERRUPT REQUEST WILL GE VERIFIED. 
FAILURE OF THE AZTEC TO VECTOR PROPERLY WILL NECESSITATE THAT THIS 
PROGRAM BE RESTARTED. A COMPLETED INTERRUPT AT THE WRONG BR LEVEL 
WILL BE REPORTED. 


LOOP ON ERROR WILL RESTART THIS TEST IF THE ERROR IS RECOVERABLE. 


3 


rons sSez%s 


NUM_RETRIES = ZERO; 

if .SWP_TRACE then PRINTF (DBM11); 

while i. lequ .SWP_RETRIES) do 
egin 


! START WITH ke! PRIORITY 
CLEAR gobo F LAG 
= 0; ! STEP 1 READ MA 
= %0'104600° + eRT_TABLE CRT_ VECTORI/4; !INTER RUPT ENABLE BIT SET 
SETPRI (. TEMP); i SET HOST PRIORITY 


if AZT_INIT () ' BRING UP TO STEP 1 READ 
' AND GET STATUS 

then : ' IF ERROR 

boots ' THEN 

ERRDF (6, MSG_14, RC25$ERR_RPT); ! REPORT IT 

if .RET_STATUS then DECODE (); ! PECODE STATUS 

CKLOOP; 

RETRIES = TRUE; 

end 

otee 


DRE R Ace? (RCSA, .DATA1); ! WRITE STEP 1 DATA 
DELAY (1500); ! WAIT FOR INTERRUPT 


while (,TEMP gequ %0'140") do 
begin 





es 


2. a 
ZRCFA3 CZRCFAO 52d FR END TEST 8-Jul-1983 15:31:08 VAX-11 Bliss=-16 V3-555 Pore 3 
v01.0 TEST SECTI 8-Jul-1983 14:46:50 SPIDERSUSERS: LLAKSHMANA. 11REL .REALIZRCFA &) 


if .1AM_NEX eqlu ALL_ONES then exitloop; 'IF INTERRUPT DID NOT 
TEMP = .TEMP = %0°40'; ! NOT OCCUR 
SETPRI (TEMP); i LOWER CPU PRIORITY 


RETRIES = TRUE; 
end; 


end; 


7 ~IAM_NEX eqlu ALL_ONES ! IF INTERRUPT OCCURED 
en 


begin $ 
TIP = = .TEMP*-5 + 1; i , GET PRIORITY 
SETPRI (PRIO0); SET HOST PRIORITY TO 0 
SETVEC (.RT _TABLE CRT_VECTOR], NXMI, TIP): ! SET UP SERVICE ROUTINE. 
PRINTF CINI_MSG, .RT _TABLE CRT_ VECTORJ, TIP): 
if .TIP nequ .RT_TABLE CRT_BR_LEVEL] then PRINTF (BRERR); ' JF RECEIVED BR IS NOT THE 
' SAME AS TYPED REPORT ERROR 
RETRIES = FALSE; 
en 
ssi 


RE PRIE S_= TRUE; 
ERRDF (7, END _MSG, 0); 
CKLOOP; 


end; 
if .RETRIES then DO_RETRIES (); 
if (.NUM_RETRIES eqlu ZERO) then exitloop; 
end; 
ENDTST; 


-SBTTL $14 TEST SECTION 
010146 MOV R1,-(SP) 
5746 -(SP) 
067 0000006 NUM.RETRIES 
000001 0000006 #1,SWP. TRACE 


0000006 #DBM11,-(SP) 
000001 : #1,-(SP) 


1 
(SP)+ 
0000006 0000006 : C NUM. Re tRIES. SWP.RETRIES 


2 
000520 16$ 
000005 0000006 : #5,TIP 
000340 0000006 #340, TEMP 
0000006 L /AM.NEX 
0000006 B.MASK 
016700 0000006 RT. TABLE RO 





000374 


CZRCFAO 44 FR END TEST 


TEST SECT 


000002 
000004 
0000006 


0000006 
073200 0000006 
0000006 


0000006 


G 
000001 0000006 


016700 


0000006 


000001 0000006 


000002 
002734 
0000006 
000004 


0000006 000140 
0000006 177777 
000040 0000006 
0000006 


000001 0000006 
0000006 177777 
0000006 
177773 
0000006 


0000006 
0000006 


0000006 
0000006 
0000006 


J 1 


8-Jul-1 
2(RO)-,-(SP) 
#4,-(5P) 
PC,BLSDIV 
RO,DATA 
#73200,DATA1 
TEMP, RO 
PC,AZT. INIT 
RO 
5$ 
55 
MSG.14 
RC25$ERR.RPT 
#1,RET.STATUS 
PC ,DECODE 
65 
RO 
4$ 
(SP)+, (SP)+ 
#1,RETRIES 
108 


R1 
RCs, ADDR, RO 
1,2¢ wt 


PC, BLSSHF 
RO.TIP 


RO 


ay 

TIP, (SP) 
A#NXMI ,=(SP) 
RT. TABLE ,RO 


VAX-11 Bliss-16 V3-555 
SPIDERSUSERS : CLAKSHMANA. 


; *,RCM.REG 


; RCM.REG,* 
; *,SSTMP2 


; *,SSTMP1 
; SSTMP 

; SSTMP1 

; SSTMP2 


SEQ 215 
. page 22 
11REL.REALIZRCFA (6) 





kK 1 


SEQ 21 
ZRCFAS CZRCFAO RC25 FR END TEST 8-Jul=1 : VAX-11 Bliss-16 V3-555 pont 2 
v01 TEST SECTION 8-Jul-1 : SPIDERSUSERS: CLAKSHMANA.11REL.REALIJZRCFA (6) 


6 000002 2(RO) ,=(SP) 
000003 #3,-(SP) 


0000006 
0000006 


000002 
0000006 #INI.MSG,=(SP) 
000003 MOV 


=(SP) 


at 


0000006 RT. TABLE ,RO 
0000006 000004 TIP,4(ROS 


0000006 #BRERR, (SP) 
000001 #1,-(SP) 


oo—-cC0o0ooo-9oo0 
Sse 


ooo 


(SP) + 
0000006 : RETRIES 
000016 ~4 {Sal 
000001 0000006 : enclose 


7 
END.MSG 
0 
65 
RO 
13$ 
; cn (SP)+, (SP)* 
000001. 0000006 138: #1 -RETRIES 
0000006 PC DO.RETRIES 
0000006 148: NUM.RETRIES 
(SP)+, (SP)+ 
15$: (SP)+, (SP + 
1$ 


JMP 
16$: (SP)+ 
(SP)+,R1 
PC 


® is 
177244 


z Routine Size: 192 words, Routine Base: AC$CODE + 1546 
+ Maximum stack depth per invocation: 14 words 


T4 TEST SECTION 
000000 004767 177174 2: 

000000 : JS PC,$T4 

000004 104466 66 

000006 RO 


006000 
000010 103773 1$ 
12 PC 


000012 000207 





ZRCFAS CZRCFAO RC25 FR END TEST 
v01.0 TEST SECTICN 


: Routine Size: 6 words, Routine Base: 


: Maximum stack depth per invocation: 2 words 


: 2086 !<BLF/PAGE> 


ACSCODE + 2346 


L 1 


8-Jul-1 
8-Jul-1 


VAX-11 Bliss-16 V3-555 
SPIDERSUSERS: CLAKSHMANA. 11REL.REALJ 


Pi 217 
poge 24 
ZRCFA (6) 


m1 


SEQ 218 
ZRCFAS CZRCFAO RC25 FR END TEST 8-Jul=19 VAX-11 Bliss=16 V3-555 Page 25 
v01.0 TEST SECTION 8-Jul-19 SPIDERSUSERS: CLAKSHMANA. 11REL.REALIZRCFA (7) 


BGNTST; 

'¢¢ 

TEST 5: STEP 1 =3 INITIALZATION TEST 

DESCRIPTION: 

THIS TEST WILL CHECK FOR INFORMATIONS ECHOED FROM PORT AT 

EACH STEP READ COMING UPTO THAT STEP FROM SCRATCH. IF THERE WAS 
AN ERROR REPORTED OR ECHOED INFORMATIONS WERE INCORRECT 


THE SAME WILL BE REPORTED. 
LOOP ON ERROR WILL BE FROM THE BEGINNING OF SUB TEST. 


NUM_RETRIES = ZERO; ! CLEAR RETRY COUNTER 
if .SWP_TRACE then PRINTF (DBM9); ! TEST 5 
while (.NUM_RETRIES Lequ .SWP_RETRIES) do 

begin 


RIALS 


: STEP1 READ 
BGNSUB; 
; 
‘check if woing Q@_bus and flag 
! TEMP = READBUS (); 
; STEP 1 READ 
" B_LMASK = 0; ! START PORT INIT WITH MASK = 0 
if AZT_INIT () ! BRING UP TO STEP 1 READ 
i AND GET STATUS 
then | IF ERROR 
pears ' THEN 
ERRDF (8, MSG_14, RC25$ERR_RPT); i REPORT IT 
if .RET_STATUS then DECODE (); ! DECODE STATUS 
CKLOOP; 
RETRIES = TRUE: 
end; 
' CHECK FOR CONTROLLER DEPENDENT INFORMATION FROM RCSA AT STEP 1 READ 
if ((.RC25_DATA CRCSA, RCSA_NV]) ' CHECK THAT THE NV BIT DID 
or not (.RC25_DATA CRCSA, RCSA_DI})) — _‘ CHECK IF DI BIT SET 


T 
or (.TEMP) and not (.RC25_DATA”CRCSA, RCSA_QB)) ! CHECK THE OB BIT 
or not (.TEMP) and (.RC25_DATA CRCSA, RCSA_QBJ)) 

Tf uot SET 


a : 

egin 

P RASK = 2; 
PT = FMT3; 
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nN 1 
SEQ 219 

ZRCFA3 CZRCFAO RC25 FR END TEST 8-Jul-198 VAX=11 Bliss-16 V3-555 Page 26 
v01.0 TEST SECTION 8-Jul-198 SPIDERSUSERS: T LLAKSHMANA. 11REL.REALIZRCPA (7) 

r PACE A + 2; 

»RCO5 °DATA tresa® RC_ALLJ; 
P6 = ' MASK = STEP 1 
ERRDF (9, mic_ 14, RC25SERR_RPT); i REPORT ERROR 


CKLOOP; 
RETRIES = TRUE; 
end; 


iw Te Ie lear oe oF a? a oe a 
WN “9 OONOUE 


TEMP = .RC25_DATA CRCSA, RC. ALLI; 
TEMP = .TEMP<6, 5>; : ! PORT SPECIFIC INFO 
cen: (EMTS, . TEMP); ! GIVE IT TO OPERATOR 


' 
STEP1 WRITE WITH STEP 2 READ 
BGNSUB; 
B_MASK = 1; 
DATA] = %0°137600° + .RT_TABLE CRT_VECTORI/4; ' STEP1 WRITE DATA FOR MAX 
' RING LENGTHS,IE AND 
' VECTOR ADDRESS 


if AZTLINIT ©) ' DO INIT AND IF ERROR 
then 


SHISALARASSSIFAF 


peste 
ERRDF (10, MSG_14, RC2SSERR_RPT); ! REPORT ERROR 
if .RET_STATUS then DECODE (); ' DECODE STATUS 


CKLOOP; 
RETRIES = TRUE; 
end 


Oo 


iar ir ar ir iar ir ar er ar er ir rr rr er ee ee eee ee 
oO 


else 


wn 
: CHECK oR ECHOED INFORMATIONS AT STEP2 READ 
TEMP = .DATA1<8, 8>; ! SAVE EXPECTED DATA 


if (.RC25_DATA CRCSA, RCSA_7_0] nequ .TEMP) 
then ! JF ECHOED INFO DOES NOT 
begin ' MATCH REPORT ERROR 


& = 2; 

PT = FMT2; 

7? = ADAPT ; 

P5 = “RCa5. * DATA (RCSA, RCSA_7_0); 
TABLE CRT_I P’ ADDRESS] + 2; 

ERRDF iT MSG_11, “RCDSSERR RPT); 


CKLOOP; 
RETRIES = TRUE ; 
end; 


ek ed ed ed ed ed od 
BLS ARAVAS Sa Vearanv= 


@ 
o 


end; 
ee (FMT4, .RC25_P4TA CRCSA, RCSA_PTN)); ' GIVE PORT TYPE NUMBER 


KARALLES 
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i STEP 2 WRITE WITH A STEP 3 READ 





B 2 


5 
2256 ! PRINT MICRO CODE VERSION INFO. 
2257 PRINTF (FMT6, .RC25_DATA CRCSA, RCSA_MODELJ, .RC25_DATA CRCSA, RCSA_U_CODE)); 


coon 230 
Z7RCFA3 she 44 FR END TEST 8-Jul-1983 15:31:08 VAX-11 Bliss-16 V3-555 page 5 
v01.0 TEST SEC 8-Jul-1983 14:46:50 SPIDERSUSERS : CLAKSHMANA. 17REL.REALIJZRC 4 
; 2201 ! 
: 2202 BGNSUB; 
3 2203 B_MASK = 3; ! MASK UPTO STEP3 READ 
3 $soe DATA2 = COM_AREA; ' COM AREA START ADDRESS 
8 2206 if AZT_LINIT () ! DO INIT AND IF ERROR 
; 2207 then 
3 2208 begin 
3 $$50 ERRDF (12, MSG_14, RC25SERR_RPT); ! PRINT ERROR MESSAGE 
3 $s if .RET_STATUS then DECODE (); !' DECODE STATUS 
3 2213 CKLOOP; 
3 2214 RETRIES = TRUE; 
3 2215 end 
5 2216 oreo, 
3 2217 begin 
3 2218 ! CHECK «fl ECHOED VECTOR AND IE BIT 
; $$) -DATA1<0, 8>; 
3 2221 if (.RC25_DATA CRCSA, RCSA_7_0] nequ .TEMP) 
; 2222 then ! JF ECHOED INFO NOT CORRECT 
3 2223 "bs in 
; 2224 SK = 2; 
3 2225 PT = FMT2; 
; 2226 = wa : 
3 2227 P4 = 
3 2228 P5 = RCS, DATA CRCSA, RCSA_7_0]; 
3 2229 P6 = TABLE CRT_IP_ADDRESS] + 2; 
5 2230 ERRDF “U3, mS. a “RCZSSERR RPT); ' REPORT ERROR 
; 2231 CKLOOP; 
4 2232 RETRIES = TRUE; 
; 2233 end; 
5 2234 
3 2235 end; 
; 2236 
2 $S6 ENDSUB; 
5 2239 |! STEP 3 WRITE WITH STEP 4 READ 
3 2240 ! 
; 2241 BGNSUB; 
$ 2242 B_MASK = of ' BRING UPTO STEP4 READ 
; $se7 DATA3 = !' RING BASE HIGH ADDRESS 
; 2245 if put () ' INIT AZTEC 
3 2246 then ! IF ERROR 
; 2247 pease ' THEN 
; $se8 ERRDF (14, MSG_14, RC25$ERR_RPT); ! PRINT OUT ERROR MESSAGE 
Z SSer if .RET_STATUS then DECODE (); ! DECODE ERROR 
5 2252 CKLOOP; 
: 2253 RETRIES = TRUE; 
s 2254 end; 
3 225 


ZRCFA3 
v01.0 


Be Ge Se Ge Oe Ge Se Se oe 


a es 8 4 a 
FRSESKESNSENS 


sessseesessasaggeaaas 


crnre 404 FR END TEST 


TEST 
ENDSUB; 


if (.RETRIES) then DO_RETRIES (); 


C 2 


8-Jul-1983 15:31:08 
8-Jul-1983 14:46:50 


if (.NUM_RETRIES eqlu ZERO) then exitloop; 


end; 
ENDTST; 


0000006 
000001 0000006 


0000006 
000001 


0000006 0000006 


0000006 
0000006 


G 
000001 0000006 


0000006 


000006 


000001 000000G 
002000 0000026 


000400 0000026 
000002 0000006 
0000006 0000006 
000001 0000006 
0000006 


0000006 
0000026 0000006 
000001 0000006 


$T5 aye SECTION 
NUM.RETRIES 

“ 2 SWP. TRACE 
#DBM9, = (SP) 
#1,-(SP) 

P,RO 


(SP)+, (SP) 
NUM. RETRIES, -SWP.RETRIES 


PC 
2 


B.MASK 
PC,AZT.INIT 

RO 

5$ 

55 

10 

MSG. 14 
RC25$ERR.RPT 
#1,RET. STATUS 

PC ,DECODE 

6S 

RO 

4$ 

#6,SP 

9$ 

#1,RETRIES 
#2000,RC25.DATA+2 
#400,RC25.DATA+2 
8$ 


#2,P.MASK 
#FMTS,P1 


#1,P2 
RC25.ADDR,RO 
#2,R0 


RO.P4 
RCO5.DATA+2,P5 
#1,P6 


MSG.14 
RC25$SERR.RPT 


VAX-11 Bliss-16 V3-555 
SPIDERSUSERS: CLAKSHMANA. 


SEQ 221 
Page 28 
11REL.REALIZRCFA (7) 





CZRCFAO RC25 FR END TEST 
ECTION 


TEST S$ 


000006 


000001 0000006 
0000026 0000006 


0000006 
177740 0000006 
0000006 
0000006 
000002 


000006 


000001 0000006 
0000006 

000002 

000004 

0000006 
0000006 

040200 0000006 
0000006 


000001 0000006 
0000006 


000001 0000006 
000000G 
0000016 0000006 
0000026 
0000006 
000002 0000006 


0000006 000000G 
000001 0000006 


65 
RO 


7$ 
#6,SP 
9 


#1,8.MASK 
RT. TABLE ,RO 


#40200, DATA1 
PC,AZT.INIT 


MSG.14 
RC25SERR.RPT 
# RET.STATUS 
PC ,DECODE 

65 

RO 

12$ 

~(SP) ,-(SP) 


#1,RETRIES 
15$ 


TEMP 

~ it teal 
RC25.DATAt2,RO 
RO, TEMP 

15 

#2,.P MASK 
“se 


SEQ 222 
VAX-11 Bliss=-16 V3-555 poge 29 
SPIDERSUSERS: LLAKSHMANA.11REL.REALIJZRCFA (7) 


$ 2150 
é 2153 
é 2154 
3 2155 
3 SP,* 

$ 2107 
: 2155 
$ 2156 
3 2161 
3 2162 
3 2166 
3 2169 
; 2171 
$ 2174 
; 2166 
3 2179 
3 2181 
§ 2184 
3 2185 
3 2186 


ZRCFAS 
v01.0 


016767 
005000 
156700 
010067 
017700 
062700 


Sh ee FR END TEST 


TEST SEC 

0000006 0000006 
0000026 
0000006 

900000¢ 

000002 

0000006 


000001 0000006 
0000026 
177770 
0000006 
000002 
000010 


000003 0000006 
0000006 0000006 
0000006 


G 
000001 0000006 


0000006 


000001 0000006 


0000006 
0000006 0000006 


0000026 
0000006 


000002 000000G 
0000006 0000006 
000001 000000G 
0000006 0000006 


i 


8-Jul-1 
8-Jul-1 


TEMP, P4 
RC25 .DATA*2,RO 
@RT. TABLE RO 
#2,R0 


e 


MSG.11 
RC25$ERR.RPT 
65 

RO 

14$ 

=(SP) ,-(SP) 
16$ 
#1,RETRIES 
RC25.DATA*2 .RO 
#177770,RO 
#FMTS, (SP) 
#2,~(SP) 


#10,SP 

67 

RO 

10$ 

2 

#3.B8.M 
PCOMLAREA, DATA2 
4% ,AZT.INIT 
19$ 

55 

14 

MSG.14 
RC25$SERR.RPT 
+ RET.STATUS 
PC ,DECODE 

65 


208 

#1, ,RETRIES 
20$ 

TEMP 

~ apieieaeal 
RES, DATACE RO 
RO, TEMP 

20 
#2,P.MASK 
#FMT2,P1 
#1,P2 

TEMP ,P4 


SEQ 223 
VAX-11 Bliss-16 V3-555 page 30 
SPIDERSUSERS: LLAKSHMANA.11REL.REALIJZRCFA (7) 


2187 
2188 
2189 


2190 





WRN] = 


VME RAS 


ee ee NY eS 
NNN 
RNSSRSYSSENSEVRSSRNS S 


mM 
ove 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


ee ce ee cee ce cee cee ee ee ed ce ce ee ed ee ee cd ed ed eed ed od eed ed 


cere RC25 FR END TEST 


EST SECTION 


000001 0000006 


000007 0000006 
0000006 
0000006 


000001 0000006 
0000006 


000010 
000001 0000006 
26 


177760 
0000026 


177760 
0000006 
000003 


000010 


000001 0000006 


000000G 
0000006 


F 2 


8-Jul- 


RO 
ee 
@RT. TABLE ,RO 
#2,R0 

RO,P6 

55 

MSG.11 
RC25SERR.RPT 
65 

RO 

20$ 
#1,RETRIES 
67 


RO 
17$ 


2 

ere 
PC,AZT.INIT 
RO 

24$ 

55 

16 - 

MSG.14 
RC2S5SERR.RPT 
4 RET.STATUS 
PC DECODE 

65 


IES 

(SPS 
RC25.DATA+2,RO 
RO 


RO 
RO 


RO 
#177760,RO 
#FMT6,-(SP) 
#3,-(SP) 


17 
#10,SP 
67 


RO 
21$ 
#1,RETRIES 


PC,DO.RETRIES 
NUM.RETRIES 


SEQ 224 
VAX-11 Bliss-16 V3-555 Page 31 
SPIDERSUSERS: CLAKSHMANA. 11REL.REALIZRCFA (7) 


: 2228 


2229 





SEQ 225 
ZRCFA3 CZRCFAO RC25 FR END TEST 8-Jul-1983 15:31:08 VAX-11 Bliss=16 V3-555 page 32 
v01.0 TEST SECTION 8-Jul-1983 14:46:50 SPIDERSUSERS: CLAKSHMANA.11REL.REALIJZRCFA (7) 
001310 001402 BEQ 27$ 
001312 000167 176514 JMP 1$ 
001316 000207 278: RTS PC 3 2085 


; Routine Size: 360 words, Routine Base: ACSCODE + 2362 
3; Maximum stack depth per invocation: 6 words 


-SBTTL TS TEST SECTION 


000000 004767 176454 T5:: 

000000 1$: JSR PC,$T5 : 2264 
000004 104466 TRAP 66 

000006 006000 ROR RO 

000010 103773 BLO 1$ 

000012 000207 RTS PC 

: Routine Size: 6 words Routine Base: ACS$CODE + 3702 


> Maximum stack depth per invocation: 2 words 


: 2267 !<BLF/PAGE> 


H 2 


C25 FR END TEST 8-Jul-19 
ON 


SEQ 226 
8 08 VAK=-11 Bliss-16 V3-55 
cTl 8-Jul-198 50 


RCFA RCFAO R ae 
yO test $f SPIDERSUSERS: TLeANSHMAWA. 1 1REL .REALIZRCPA (8) 


3 15:3 
v01.0 3 14:4 


1: 
6: 
1 

BGNTST; 


1+ 

TEST #6 = PURGE AND POLL TEST 

DESCRIPTION: 
THIS TEST WILL PERFORM THE weer pert auesct OF THE INIT st ary? 
WHEN iy HOST RESPONDS TO THE STEP 3 TRANSITION IT WILL EA 


L WRIT 
BIT 15 OF THE SA REGISTER, TieRBY REQUESTING THE EXECUTION. OF 
POLL TESTI HOST THEN oe a FOR THE SA i TO 


i 
i 
i 
i 
i 
i 
i 
A E COMPL 

READS THE IP REGISTER TO SMULATE A “START POLL oM 

i REST TO THE PORT. THE TEST 1S COMPLETE WHEN THE CONTROLLER ANNOUNCES 
THE TRANSITION TO STEP 4 IN THE SA REGISTER. 

FAILURE TO PROPERLY COMPLETE THIS TEST WILL BE REPORTED. 

{LOOP ON ERROR WILL RESTART THE TEST. 

if .SWP_TRACE then PRINTF (DBM12); 

NUM_RETRIES = ZERO; 


aie A (.NUM_RETRIES Lequ .SWP_RETRIES) do 


= 3; 

x = Xo" 190200" + .RT_TABLE CRT_VECTORI/4; ! IE AND VECTOR ADDRESS 
DATA2 = RINGBAS i RING BASE LOW ADDRESS 

DATA3 = %o' #30000" ; i PURGE AND POLL 


if AZT_INIT () ' DO UPTO 4 Za — AND 
then C 


begin ! 
ERRDF (15, MSG_14, RC25SERR_RPT); ' REPORT THEM 
if .RET_STATUS then DECODE (); ' DECODE STATUS 
CKLOOP; 
RETRIES = TRUE; 
end 
else 
begin 
WRT_RC25 (RCSA, .DATA3); ! WRITE PURGE AND POLL 


while (.RC25_ADDR CRCSA, RC_ALLJ nequ ZERO) do 
DELAY (10); ! WAIT UNTIL SA=0 


WRT_RC25 aig FALSE); ! WRITE ALL ZERO*S TO SA 
DATA1 = .RC25_ADDR CRCIP, RC_ALLI; i READ THE IP REGISTER 
DATA = io *10°; i INIT THE LOOP COUNT 


while (.DATA1 nequ ZERO) do 
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ae SEQ 227 
ZRCFA3 Sh mee FR END TEST 8-Jul-19 2 VAX-11 Bliss-16 V3=555 Page 34 
v01.0 TEST 8-Jul-19 2 SPIDERSUSERS: CLAKSHMANA.11REL.REALIZRCFA (8) 
egin 
belay (333); 
if .1AM_NEX eqlu ALL_ONES then exitloop; 


DATA1 = .DATA! = 1; 
end; 


if .IAM_NEX eqlu ALL_ONES 
then 


WAIANAE 
WUIWPNS 
mono 


Ww 
Ww 
w 


begin 

RC25_DATA CRCSA, RC_ALL] = .RC25_ADDR CRCSA, RC_ALLJ; 
io eRC25_DATA CRCSA, RCSA_ERJ ' JF PORT FATAL ERROR 
! THEN REPORT IT. 


A po 
WWW 
GEAE 


WANN 
WW 


Revs STATUS = PFE_CODE; 
a 


f$wnr-o Oe 


ADAP 
a ace A + 2; 
iotben BATA tresat RC_ALLJ; 


EELEEEERE 


OOnNOW 


P = 2; 
ERDF (16, MSG_14, RC25SERR_RPT); 
DECODE (); 


CKLOOP; 
RETRIES = TRUE; 
end; 


he (.RC25_DATA CRCSA, RCSA_STEP] nequ %b°1000°) ! CHECK FOR STEP 4 COMPLETE 
en 


Nononononononorofnonronet 
ae 
ww 


WWW 
wi 


MMUIVMIMIVIVIV 


"EMTS: 


C mace AD + 2; 
dottgn Bara tresa’ RC_ALLJ; 


+4 
P1 
Pe 


NMONMINNMPINONPoPoNr 
WANA 


& 


PS 
! MASK = STEP 4 


WSC VCONAUEWN Oo 


= 2; 
ERDF (17, MSG_14, RC25SERR_RPT); 


CKLOOP; 
RETRIES = TRUE; 
end; 


Ba 


$ 


end 


SAAO 
con 


WWW 
Whoo 


RE begia a CTO_CODE; 
RETRIES = TRUE; 

ERRDF Be HSG. 9, 0); 
DECODE ( 

end; 


end; 
if (.RETRIES) then DO_RETRIES (); 
if (.NUM_RETRIES eqlu ZERO) then exitloop; 


MoNMoNaNoNnononononofnonory 


WNW 
NNNNNNNS 
SWONOUS 


Pononononononofnory 





ZRCFAS 
v01.0 


000256 
000262 


CZRCFAO RC25 FR END TEST 
TEST SECTION 

end; 
ENDTST; 


000010 
000001 0000006 


0000006 
000001 


0000006 
0000006 0000006 


000674 
000006 0000006 
000003 0000006 


0000006 

000002 

000004 

0000006 

0000006 

077600 0000006 
0000006 0000006 
100000 0000006 
0000006 


0G 
000001 0000006 


0000006 


900002 000010 
000012 
0000006 


J2 


8-Jul-19 
8-Jul-19 


-SBTTL $16 TEST SECTION 
MOV R1,=(SP) 


#10,SP 
#1,SWP.TRACE 


#DBM12,-(SP) 
#1,-(SP) 


1 
(SP)+,(SP)+ 
NUM.RETRIES 


~ esiechhatanseanceetbaterinaeane 


PC,AZT.INIT 
RO 

6$ 

55 

17 

MSG.14 
RC25$SERR.RPT 
#1,RET.STATUS 
PC, ,DECODE 

65 

RO 

5$ 
(SP)+,(SP)+ 
#1,RETRIES 


DATA2,R1 
RC25-ADDR,RO 
R1, 2(RO) 
RC25. ADDR, RO 
(RO), »10(SP) 


#12,R1 


LSDLY,RO 
10$ 


VAX-11 Bliss-16 V3-555 
SP IDERSUSERS: CLAKSHMANA. 


* ,RCM.REG 
; RCM.REG,* 
: *,RC.REG 
; *,SSTMP2 
; *,SSTMP1 


SEQ 228 
Page 5 
TIREL.REALIZRCFA (8) 





ZRCFAS 
v01.0 


creer 2 ee FR END TEST 


TION 
000012 


0000006 
000002 
000006 
000010 0000006 
000515 


0000006 
000012 


0000006 177777 
0000006 

0000006 177777 
0000006 

000002 000004 
000004 0000026 
000021 000000G 


0 

000002 

0000006 

0000026 0000006 
000004 0000006 
000002 000000G 


0G 
0000006 


016700 


000001 0000006 
0000026 
103777 
040000 


0000006 0000006 
000001 0000006 
0000096 


9$: 


12(SP) 
RO 


R1 

RC25.ADDR,RO 
(RO) 

(RO) ,6(SP) 

#10,DATA1 


$ 
#515,R1 
LSDLY,RO 


2(RO), 
4(SP), "REDS, DATA+2 


#21 RET. STATUS 
FMTS. Pi 
ae ADDR, RO 
we, RO 


RO 
Ress, DATA+2,P5 
#4,P 

#2. 4 MASK 

55 


MSG. 14 
RC25SERR.RPT 
,DECODE 
RO 
18$ 
(SP)+, (SP)+ 
25$ 
#1,RETRIES 
RC25. DATA+2,RO 
#103777,RO 
40000 


#FMT3,P1 
#1,P 
RC25. ADDR,RO 


VAX-11 Bliss-16 V3-555 
SP IDERSUSERS: CLAKSHMANA. 


; SSTMP 
; SSTMP1 


; SSTMP2 
; RCM.REG 


; RC25.ADDR,RC.REG 


; *,SSTMP2 
; *,SSTMP1 


; SSTMP 
; SSTMP1 
; SSTMP2 


; *,RC.REG 


RC.REG,* 


SEQ 229 
page 
11REL.REALIZRCFA (8) 





: Routine Size: 
+ Maximum stack 


000000 
000000 
000004 
000006 
000010 
000012 000207 


; Routine Size: 
+ Maximum stack 


2386 


CZRCFAO 45 7d FR END TEST 


TEST SECT 

000002 

0000006 
0000026 0000006 
000010 0000006 
000002 0000006 


000001 0000006 


000011 0000006 
000001 0000006 


0000006 
900001 0000006 


0000006 
0000006 


177070 
000010 


248 words, 


177014 


6 word 


depth | invocation: 


' <BLF /PAGE> 


228: 


23$: 


24$: 
258: 


Routine Base: 


depth per invocation: words 


Routine Base: 
2 words 


L@é@ 


8-Jul-19 
88-Jul-19 


"2, RO 

Res6 DATA+2,P5 
#10,P6 

#2,P.MASK 

55 


MSG.14 
 emncnanesaite: 


20$ 

(SP)+, (SP)+ 
#1,RETRIES 
#11,RET.STATUS 
#1,RETRIES 

22 

MSG.9 


PC ,DECODE 
#1,RETRIES 


23 
PC,DO.RETRIES 
NUM.RETRIES 


24$ 

| ia peated 
(SP)+, (SP)+ 
2$ 


#10,SP 
(SPS, R1 


ACSCODE + 3716 


T6 TEST SECTION 
PC,$T6 

66 

RO 


1$ 
PC 


ACSCODE + 4676 


VAX=-11 Bliss=-16 V3=-555 
SPIDERSUSERS: CLAKSHMANA. 


SEQ 230 
page 37 
11REL.REALIJZRCFA (8) 





SEO 231 
ZRCFA3 CZRCFAO RC25 FR END TEST 8-Jul-1983 15:31:08 | VAX-11 Bliss-16 V3-555 Page 38 
v01. TEST SECTION B-Jul-1983 14:46:50 SP IDERSUSERS: T LLAKSHMANA. 11REL -REALIJZRCPA (9) 
; 2387 ! 
; 2388 BGNTST; 
; 2389 
3 2390 '++ 
; 391 | TEST #7 = SMALL RING BUFFER INIT TEST 
: 2393 ; DESCRIPTION: 
: 2395 | THE AZTEC WILL BE INITIALIZED WITHOUT INTERRUPTS AND USING THE 
; 2396 SMALLEST RING BUFFER. THIS WILL BE THE FIRST TIME THAT THE 
; 2397 i INITIALIZATION SEQUENCE 1S CARRIED OUT TO COMPLETION. INITIALIZING 
; 2398 WITH THE SMALLEST RING BUFFER MINIMIZES THE HOST MEMORY AREA WITH 
: 2599 ; WHICH THE AZTEC CONTROLLER MUST BE ABLE TO COMMUNICAT 
: 401 ; FAILURE TO PROPERLY INITIATETHE AZTEC WILL BE REPORTED. 
: 2403 | IF THE OPERATOR HAS SPECIFIED LOOP ON ERROR, LOOPING WILL BE FROM THE 
; 2404 | START OF THIS TEST. 
: 2405 
; 2406 
; 2407 if .SWP_TRACE then PRINTF (DBM13); ' TEST 7 
: 2409 NUM_RETRIES = ZERO; 
: 2411 while (.NUM_RETRIES Lequ .SWP_RETRIES) do 
; 2412 begin 
: 2413 IP = 
: 2414 B MASK = %0'17° ! SELECT ALL STEPS 
; 2415 DATA1 = %0'100200'; i STEP 1 WRITE WITH MIN. RING SIZES 
; 2416 DATA2 = RING_B CO); i SET UP RING BASE ADDRESS 
; 2417 DATA3 = 0; 
; 2418 DATAG<O, 1> = 1: 
; 2419 RING_B CO] = ALL_ONES; ' INIT RING_B CO) AND (1) 
; soso RING_B [1] = ALL_ONES; ! WITH ALL ONES (1) 
: 2422 if AZP_INIT () ' DO INIT STEPS 
5 2423 then ' 
5 2424 peagtn ! IF ERROR THEN 
: 425 ERRDF (19, MSG_14, RC25$ERR_RPT); i THEN REPORT THE ERROR 
: her if .RET_STATUS then DECODE (); ! DECODE RETURN STATUS 
: 2429 CKLOOP; 
: 2430 RETRIES = TRUE: 
ate een 
: 2433 if .RING_B [0] nequ 0 and .RING_B [1] nequ 0 ! TEST THAT THE RC25 CLEARED 
; 2434 then ' RING BUFFERS 
: 2435 begin i JF NOT THEN ERROR 
; 2436 ERRDF (20, MSG_10, 0); i AND REPORT IT 
; 2437 CKLOOP; 
; 2438 RETPIES = TRUE; 
: 2439 ed; 
; 441 if (.RETRIES) then DO_RETRIES (); 
: 2443 if (.NUM_RETRIES eqlu ZERO) then exitloop; 


ZRCFAS 
v01.0 


ere RC25 FR END TEST 


SECTION 


end; 


return; 
ENDTST; 


000001 0000006 
0000006 
000001 


0000006 
0000006 0000006 


000007 0000006 
000017 0000006 
100200 0000006 
000100° 0000006 


0006 
00001 0000006 


9 

177777 + 000100° 
177777 000102" 
0000006 


000001 
0000006 


0000006 


000001 0000006 
000100" 


000102" 


000001 0000006 
000001 0000006 


0006006 
C000006 


$17 


3$: 


4$: 


5$: 


6$: 


8-Jul-1983 15:3 
B-Jul-1983 14:4 
.SBITL $17 TEST SECTION 
BIT #1,SWP. TRACE 
BEQ 1$ 
MOV #DBM13,=(SP) 
MOV = (SP) 
MOV SP,RO 
TRAP ‘17 
CMP (SP)+, (SP)+ 
CLR NUM.RETRIES 
CWP NUM. RETRIES, SWP.RETRIES 
MOV TIP 
MOVB = #17,B. MASK 
MOV #-77600,DATA1 
MOV #RING.B,DATA2 
CLR TA3 
BISB #1,DATA4 
MOV #~1,RING.B 
MOV #~1RING.B+2 
JSR PC,AZP. INIT 
ROR RO 
BCC 4$ 
TRAP = 55 
. WORD 
"WORD MSG.14 
"WORD RC25SERR.RPT - 
BIT #1, RET. STATUS 
BEQ 
JSR PC,DECODE 
TRAP = 65 
ROR RO 
BLO 7$ 
MOV #1,RETRIES 
TST RING.B 
BEQ 5$ 
TST RING.B+2 
BEQ 5§ 
TRAP =«-«455 
.WORD 24 
"WORD MSG.10 
"WORD 0 
TRAP =«-«605 
ROR RO 
BLO 7$ 
MOV #1, RETRIES 
BIT 1°RETRIES 
BEQ 
JSR PC,DO.RETRIES 
TST UM. RETRIES 
BNE $ 


N 2 


SEQ 232 
VAX-11 Bliss-16 V3-555 poge 39 
SPIDERSUSERS: amiga ge ate he A (9) 


3 2407 
3 SP,* 
j 24 
2411 
§ 2413 
é 2414 
s 2415 
F 2416 
3 2417 
: 2418 
F 2419 
3 2420 
3 2422 
g 2425 
3 2427 
j 24 
r 2433 
3 2436 
24 
3 2441 
3 2443 


8 3 
Soy CZRCFAO 5 14 FR END TEST 8-Jul-19 


a. 233 
VAX=11 Bliss-16 V3-555 AH 40 
(9) 


83 15:31: 
01.0 TEST SECTION 8-Jul-1983 14:46: SPIDERSUSERS : CLAKSHMANA. 11REL.REALIJZRC 
000252 000207 7$: RTS” —s PE 3 2385 


; Routine Size: 86 words, Routine Base: ACSCODE + 4712 
3; Maximum stack depth per invocation: 4 words 


-SBTTL T7 TEST SECTION 
004767 177520 


104466 
000006 006000 
000010 103773 
0006?2 000207 
: Routine Size: 6 words, _ Routine Base: ACSCODE + 5166 
3 Maximum stack depth per invocation: 2 words 


2449 !<BLF/PAGE> 





SEQ 234 
ZRCFA3 CZRCFAQ RC25 FR END TEST 8=Jul-1983 15:31:08 | VAX=11 Bliss-16 v3-555 Page 41 
v01.0 TEST SECTION 8-Jul-1983 14:46:50  SPIDERSUSERS:CLAKSHMANA.11REL.REALIZRCFA (10 
; 2450 ! 
; 2451 BGNTST; 
: 2452 
3 24535 S44 
; 3454 i TEST #8 = LARGE RING BUFFER INIT TEST 
: 2456 ; DESCRIPTION: 
: 2458 | THE INIT SEQUENCE IS EXECUTED WITHOUT INTERRUPTS WITH A RING BUFFER 
; 2459! LARGE ENOUGH TO COVER THE NORMAL HOST COMMUNCIATIONS AREA PACKET AND 
; 3460 ! BUFFER SPACE ( A 5 IN MESSAGE LENGTH AND A 5 IN COMMAND LENGTH). 
: 2462 | A FAILURE TO COMLETE THE INITIALIZATION SEQUENCE WITHOUT ERROR WILL BE 
; 463 : REPORTED. 
: 2465! IF THE OPERATOR HAS SPECIFIED LOOP ON ERROR, LOOPING WILL BE TO THE 
; 2466 | BEGINNING OF THIS TEST. 
: 2467 ia= 
: 2468 
: 469 if .SWP_TRACE then PRINTF (DBM14); ! TEST 8 
: 47) NUM_RETRIES = ZERO; 
: 2473 while (.NUM_RETRIES lequ .SWP_RETRIES) do 
: 2476 begin 
: 5475 TIP = 
; 2476 B_MASK = %0'17°; ! SET MASK BIT FOR COMPLETE INIT. 
; 2477 DATA1<15, 1> = TRUE: ' SET BIT 15 FOR STEP=1 WRITE 
; 2478 DATAI<14, 1> = 0; i NO DIAGNOSTIC WRAP MODE 
; 2479 DATA1<11, 3> = SND SIZ; i SET UP 16 COMMAND RINGS LENGTH 
; 2480 DATAI<8, "3> = REC_SIZ; i SET UP 16 RESPONSE RINGS LENGTH 
; 2481 DATA1<7 = 0; i DISABLE INTERRUPT 
; 2482 DATA1<0, 7> = 0: i LOAD INTERRUPT VECTOR ADDRESS 
: 2483 DATA2 = COM_AREA; ' LOAD COMMUNICATIONS AREA ADDRESS 
; 2484 DATA3 = i HI-ORDER ADDR = ZERO 
; 2485 DATAG = %0'177403'; i “LAST FAIL’ PACKET RESPONSE BIT SET 
; 2486 | INITIALIZE COM_AREA WITH ALL_ONES PRIOR TO INIT 
: 2488 incru I from 0 to RING_SIZE = 1 do 
: 2490 incru J from 0 to 1 do 
; 691 COM_AREA [. i° .J, WORD_REF] = ALL_ONES; 
: 2493 if AZP_INIT () ! DO STEP INIT AND CHECK FOR ERROR 
: 2494 then ! 
: 2495 begin i IF ERRORS THEN 
; 3496 ERRDF (21, MSG_14, RC2SSERR_RPT); i REPORT ERROR 
: 2498 if .RET_STATUS then DECODE (); ! DECODE STATUS 
: 2500 CKLOOP; 
; 2501 RETRIES = TRUE; 
: 2504 incru I from 0 to RING_SIZE = 1 do ! TEST RING AREA FOR ZEROES 
: 2506 incru J from 0 to 1 do 


SEQ 235 
ZRCFA3 CZRCFAO RC25 FR END TEST 8-Jul-1983 15:31:08 VAX-11 Bliss-16 V3-555 page 42 
v01.0 TEST SECTION 8-Jul-1983 14:46:50 SPIDERSUSERS: CLAKSHMANA. 11REL.REALIJZRCFA (10 
3 2507 
; 2508 if .COM_AREA C.1I, .J, WORD_REF] nequ 0 ! JF RING AREA IS NOT CLEAR 
; 2509 then ! 
; 2510 begin ' REPORT ERROR 
; 2511 ERRDF (22, MSG_10, 0); $ 
; 2512 CKLOOP; 
; 2513 RETRIES = TRUE; 
: 2514 end; 
§ 2515 ; 
; $218 if (.RETRIES) then DO_RETRIES (); 
; $2i8 if (.NUM_RETRIES eqlu ZERO) then exitloop; 
$ 2520 end; 
; 2521 
; 2522 return: 
é 2523 ENDTST; 

-SBTTL $T8 TEST SECTION 

000000 004167 0000006 $T8: JSR R1,$SAVE2 3 2448 
000004 032767 000001 000000G BIT #1,SWP.TRACE $ 2469 
000012 001407 BEQ 
000014 012746 0000006 MOV #DBM14 ,=-(SP) 
000020 012746 000001 MOV #1,-(SP) 
000024 010600 MOV sP,R0 3; SP,* 
000026 104417 TRAP 17 
000030 022626 cMP (SP)+,(SP)+ 
000032 005067 0000006 1$: CLR NUM.RETRIES 3 2471 
000036 026767 000000G 0000006 2$: CMP NUM.RETRIES,SWP.RETRIES 3 2473 
000044 101132 BHI 11$ 
000046 012767 000010 0000006 MOV #10,TIP F 2475 
000054 112767 000017 000000G MOVB #17,B8.MASK : 2476 
000062 012767 122000 000000G MOV #122000, DATA1 $ 2482 
000070 012767 000000G 000000G MOV #COM.AREA,DATA2 3 2483 
000076 005067 0000006 CLR DAT. 3 2484 
000102 012767 177403 0000006 MOV #-375 ,DATA4 3 2485 
000110 005001 CLR R1 3] 2488 
000112 005002 3$: CLR R2 si 2490 
000114 010100 4$: MOV R1,R0 3; i.* 2491 
000116 006300 ASL RO 
000120 060200 ADD R2,RO : J.% 
000122 006300 ASL 
000124 012760 177777 000000G MOV #-1,COM. AREA(RO) 
000132 005202 INC R sd 2490 
000134 020227 000001 CMP R2,41 3 Jt 
000140 101765 BLOS 4$ 
000142 005201 INC R1 31 2488 
000144 020127 000037 CMP R1,437 3; I.* 
000150 101760 BLOS 
000152 004767 0000006 JSR PC,AZP.INIT 3 2493 
000156 006000 ROR RO 
000160 103020 BCC $8 
000162 104455 TRAP 5 : 2496 
000164 25 -WORD 25 
000166 000000G -WORD MSG.14 
000170 0000006 -WORD RC25$SERR.RPT 





ZRCFAS 
v01.0 


032767 


z Routine Size: 
3; Maximum stack 


004767 

104466 

000006 006000 
000010 103773 
000012 000207 
: Routine Size: 

+ Maximum stack 


2524 


CZRCFAO art FR END TEST 
TEST SECTI 


000001 0000006 
0000006 


000001 0000006 


000001 0000006 
000001 


000037 

000001 0000006 

000006 108: 
11$: 


110 words, Routine Base: 
depth per invocation: 7 words 


177440 


6 words, Routine Base: 
depth per invocation: 2 words 


! <BLF /PAGE> 


gs 


8-Jul-19 
8-Jul-19 


#1,RET.STATUS 
PC ,DECODE 
65 


11$ 
#1,RETRIES 
R1 


Re 
R1,R0 


R2,RO 
COM.AREA(RO) 
9$ 

55 

26 

MSG.10 

0 

65 

RO 

11$ 
#1,RETRIES 
R2 

R2,#1 

8$ 


R1 
R1,437 
#1,RETRIES 


PC,DO.RETRIES 
me irene 


PC 
ACSCODE + 5202 


-SBTTL 18 TEST SECTION 


ACSCODE + 5536 


VAX-11 Bliss=16 V3-555 


SPIDERSUSERS: CLAKSHMANA. 


SEQ 236 

Poge 43 
11REL.REALIZRCFA (10 
2498 





SEQ 237 
RCFA RCFAO R FR END TEST 231: VAX-11 Bliss=16 V3=555 Pa 44 
yO10 test ection : 746: $P1DERSUSERS: LLAKSHMANA. 1 1REL.REALIZRCFA (11 


' 
BGNTST; 


'++ 
: TEST #9 = ‘DIAGNOSTIC MACHINE’ CODE DOWN LINE LOAD TEST 
DESCRIPTION: 
THIS “DIAGNOSTIC MACHINE’’ PROGRAM WILL ATTEMPT TO TRANSFER A BLOCK 
OF DATA FROM HOST MEMORY TO AN AREA IN THE CONTROLLER AND THEN 
EXAMINE THE TRANSFERED DATA. 


t 
t 
; IF THE TRANSFERED DATA NOT COMPARE CORRECTLY, THEN THE ERROR WILL 


WAWWPnoronrera 


mronnonorrorr 
Ww 
KARUN AS S00 NOu 


BE REPORTED. THIS TEST ALSO REPORTS ERRORS IF ANY OF THE ROUTINES 
USED RETURNED FAILURE CODE. 


IF THE OPERATOR HAS SPECIFIED LOOP ON ERROR, LOOPING WILL BE FROM 
THE START OF THIS TEST. 


PPA AAAA AAAI 
SEE WWG 


VMuvMvMirs) 
Ft at 
w 


Fwn—o 0OOn 


if .SWP_TRACE then PRINTF (DBM15); ! TEST 9 
NUM_RETRIES = ZERO; 
while (.NUM_RETRIES Lequ .SWP_RETRIES) do 

begin 


PoNMaMononononononononanononononofnronory 
wv wMuvi 


if AZTEC_READY () ' GET AZTEC READY 
then 


begin 

ERRDF (23, AZT_READY_ERR, 0); ' IF ERROR REPORT ERROR 

if .RET_STATUS then DECODE (); 

CKLOOP; 

RETRIES = TRUE; 

end 

else 

boa 

TEMP = .FREE_MEM_ADDR; ' SAVE FREE MEMORY STARTING ADDR. 

al « COUNT from 0 to 1024 do : ' FILL NEXT 1024 LOC. WITH DATAS 
egin ! 
OTEMP = %0'125252"; i WRITE DATA 0°125252" INTO MEMORY 


a = TEMP + 2;) ! INCREMENT THE POINTER BY 2 
end; s 4 


MViMiVIMIVIuIV 
oa wv 
— N = 


NOMPOMENPNININMIN NNN NNofofnonyr 
wMuwMivivs 


CMD_REF = 3; | P ' SET COMMAND REFERENCE #3 
BUF~DESCRPTR = DM_09; i DM-PROGRAM STARTING ADDRESS 
BYTE_COUNT = 932; i TOTAL DM PROGRAM LENGTH BYTE COUNTS 


if EX_SUP_PRG () ! ISSUE AN “EXECUTE SUPPLIED PRG’* CMD 
then : ou BIT INDICATES ERROR 


begin 
ERRDF (24, EXE_SUP_ERR, 0); 
if .RET_STATUS then DECODE (); 





G 3 


ZRCFAS 5 FR END TEST 8-Jul-19 
v01.0 


SEQ 238 
83 15: VAX-11 Bliss=-16 V3-555 
8-Jul-1983 14: 


31:08 Page 45 
46:50 SPIDERSUSERS: CLAKSHMANA.11REL.REALIJZRCFA (11 
CKLOOP; 
RETRIES = TRUE; 
end; 
-FREE _MEM_ADDR; 
H_EADD 
BOF "LENGTH = 1024; 


Ste Teecaeth = H_SADD; i SreCRIPTOR ADDRESS 
BYTE_COUNT = 06:7 i TOTAL BYTES TO BE TRANSFER 


if SEND_DATA () ! ISSUE SEND DATA COMMAND 
1 Bg Fe : oo BIT INDICATES ERROR 


begin 
ERRDF (25, SND_DATA_ERR, 0); 
if .RET_STATUS then DECODE (); 


CKLOOP; 
RETRIES = TRUE; 
end; 


CMD_REF = 5; 
BUF SDESCRPTR = TIP; ! CLEAN THE BUFFER 
BYTE_C = 02; ! SET BYTE COUNTS = 


if REC_DATA () ! SENT A RECEIVE DATA COMMAND 
then : — BIT INDICATES ERROR 


begin 

ERRDF (26, RE_DATA_ERR, 0); 

if .RET_STATUS then DECODE (); 
CKLOOP; 

RETRIES = TRUE; 

end; 


if .TIP nequ %0°104" ! IS REMOTE PROGRAM SENT DONE FLAG - 
then ! TO THE HOST 


! NO. THEN 
ERE (27. DMC_ERR, 0); ! REPORT ERROR 


RETRIES = TRUE; 
end; 


end; 
if (.RETRIES) then DO_RETRIES (); 
if (.NUM_RETRIES eqlu ZERO) then exitloop; 
end; 


635 
2636 return; 
2637 ENDTST; 
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ae 


ss 


06 

10 
000116 
000120 
000126 
000130 
000136 
000144 


Pee 


creer 5 24 FR END TEST 


TEST SEC 


000001 0000006 
0000006 


000001 
0000006 
0000006 0000006 


0000006 


000001 0000006 
0000906 


000001 0000006 
0000006 0000006 
002000 


3 0000006 
0G 0000006 


7 00000 
000272 0000006 
7 0000006 


000001 0000006 
6000006 


36 
, 000001 0000006 


0000006 000000G 
000006 


0 
002000 0000006 
000004 0000006 


H 3 


8-Jul-19 
8-Jul-19 


-SBTTL $T9 TEST SECTION 
BIT #1 RACE 


#0BM15 
#1, +5(SP) SP) 


=(SP) 


(SP)+,(SP)+ 


NUM.RETRIES 
| epneeesenete veestiantnonae 


PC 
PC ,AZTEC.READY 
RO 


6$ 
55 


27 
AZT.READY.ERR 
#1,RET.STATUS 
PC ,DECODE 

65 


RO 
5$ 


PC 

#1, RETRIES 
FREE.MEM.ADDR, TEMP 
#-52526 aTEMP 

+ ata 

RO,#2000 

7$ 

#3,CMD.REF 
#0M.09,BUF .DESCRPTR 
#272,BYTE.COUNT 
PC,EX.SUP.PRG 

RO 

9$ 

55 

30 

EXE.SUP.ERR 
#1,RET.STATUS 

PC ,DECODE 

65 

RO 


16$ 
#1,RETRIES 
FREE .MEM.ADDR,H.SADD 


H.EAD 
#2000 ,BUF .LENGTH 
#4,CMD.REF 


VAX-11 Bliss-16 V~ 
SPIDERSUSERS : CLAKSHMANA. 11REL .REAL 


555 


,$60 239 
yareha cis 


2545 





I 3 


SEQ 240 
ZRCFAS CZRCFAO aC ee FR END TEST 8-Jul-1983 15:31:08 VAX=-11 Bliss=16 V3-555 : pore 47 
v01.0 TEST SECTI B-Jul-19835 14:46:50 SPIDERSUSERS : CLAKSHMANA. 11REL.REALJZRCFA (11 


012767 000000G 000000G #H.SADD BUF . rs 
000006 0000006 #6,BYTE. COUNT 
0000006 RO" oSEND.DATA 


11$ 
35 


31 
; SND.DATA.ERR 
WORD 
000001 0000006 #1,RET.STATUS 
0000006 *  aataneee 
RO 
16$ 
000001 0000006 MO #1,RETRIES 
: #5,CMD.REF 
#TIP,BUF. ao 
#2,BYTE.C 
PC,REC. bATA 
RO” 


13$ 
53 


2 
RE .DATA.ERR 
WORD 
000001 0000006 aa ects 
0000006 ; tae 


16$ 
000001 0000006 MOV #1,RETRIES 
000000G 000104 TIP ,#104 


14$ 

55 

33 

DMC .ERR 
0 


o 


000001 0000006 
000001 0000006 148: 


Saneus 
case 
NONNIONS 


0000006 
0000006 15$: 


177276 
16$: 


z Routine Size: 175 words, Routine Base: ACSCODE + 5552 
+ Maximum stack depth per invocation: 4 words 





SEQ 241 
ZRCFAS cere. 514 FR END TEST : VAX-11 Bliss=-16 V3-555 Pa 48 
v01.0 TEST S$ B-juta19 : SP IDERSUSERS: LLAKSHMANA. 11REL .REALIZRCFA (11 


T9 TEST SECTION 
004767 177236 


104466 
000006 006000 
000010 103773 
000012 000207 


: Routine Size: 6 words, Routine Besos ACSCODE + 6310 
: Maximum stack depth per invocation: 2 word 


2636 


' 

BGNTST; 

'e4 

TEST #10 = NONEXISTENT MEMORY TEST 

DESCRIPTION: 

THIS ‘DIAGNOSTIC MACHINE'’ PROGRAM WILL ATTEMPT TO READ THE FIRST 
ADDRESS OF THE I/O PAGE OF THE HOST CP Nee THIS LOCATION IS RESERVED 
FOR DIAGNOSTICS AND A NXM SHOULD OCCUR. 


i 
i 
i 
i 
i 
i 
IF THE CONTROLLER DOES NOT SEE THE NXM, THERE WILL BE A FRU CALLOUT 
OF THE ADAPTER CARD. 

i 

i 

io 


IF THE OPERATOR HAS SPECIFIED LOOP ON ERROR. LOOPING WILL BE FROM 
if .SWP_TRACE then PRINTF (DBM16); ! TEST 10 
NUM_RETRIES = ZERO; 
while <.NUM_RETRIES Lequ .SWP_RETRIES) do 
Ti? = 0; ! INIT TIP 


AZTEC_READY () ! GET AZTEC READY FOR OPERATION 
en 


penta 
ERRDF (28, AZT_READY_ERR, 0); 
if .RET_STATUS then DECODE (); 


CKLOOP; 
RETRIES = TRUE; 
end 


! SET INT. VECTOR ADDR. TO 4 
AD, NXMI, PRI04); 


Or 0; i SET THE VECTOR ADDR., SERVICE 
CSA, ONE); i ROUTINE ADDR. AND I Inf. PRIORITY 


CMD_REF = ! COMMAND REFERENCE # 
BUF “DESCRP = DM_10; ! DMCODE STARTING ADDRESS 


. 
° 
. 
° 
2 
° 
. 
° 
. 
° 
. 
° 
. 
o 
o 
° 
. 
° 
© 
e 
° 
° 
. 
° 
o 
° 
° 
. 
° 
2 
° 
° 
oe 
° 
e 
o 
° 
7 
e 
© 
e 
. 
e 
° 
ae 
. 
2 
o 
° 
e 
° 
. 
° 
© 
° 
. 
e 
. 
o 
. 
° 
* 
° 
. 
° 
a 
° 
. 
° 
* 
° 
o 
° 
. 
° 
. 
° 
° 
e 
7 
eo 
os 
- 
° 
° 
° 
~ 
a 





kK 3 


SEQ 242 
ZRCFAS CZR ve. 5 24 FR END TEST 8-Jul-1983 15:31:08 VAX-11 Bliss-16 V3-555 Page 49 
v01.0 TEST B-Jul-1983 14:46:50 SP IDERSUSERS: CLAKSHMANA. 1 1REL.REALIZRCPA (11 


BYTE_COUNT = 58*2; ! BYTE COUNTS 
if EX_SUP_PRG () ! ISSUE AN EXECUTE SUPPLIED CMD 
then IF ERROR 


begin 

ERRDF (29, EXE_SUP_ERR, 0); 

if .RET_STATUS then DECODE (); 
CKLOOP; 

RETRIES = TRUE; 

end; 


1‘ 
: WAIT FOR 'DONE'’ SIGNAL FROM DM 
’ CMD_REF = 4; ' COMMAND REFERENCE # 
BUF SDESCRPTR = TIP; i CLEAN THE BUFFER 
BYTE_COUNT = 02; i SET BYTE COUNTS = 


if REC_DATA () ! SENT A RECEIVE DATA COMMAND 
then : — BIT INDICATES ERROR 


begin 
ERRDF (30, RE_DATA_ERR, 0); 
if .RET_STATUS then DECODE (); 
CKLOOP; 
RETRIES = TRUE; 
end; 
ys -TIP eqlu ZERO $ 4y YOU GET SUCCESS FROM DM CODE? 


begin ' THEN 
ERR DF (31, DMC_ERR, 0); ' REPORT ERROR 


RETRIES = TRUE; 
end; 


end; 
if (.RETRIES) then DO_RETRIES (); 
if (.NUM_RETRIES eqlu ZERO) then exitloop; 
end; 


return; 
ENDTST; 
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-SBTTL $110 TEST SECTION 
: MOV R1,-(SP) 
000001 0000006 BI #1,SWP.TRACE 


0000006 #DBM16,~=(SP) 
000001 #1,-(SP) 





L 3 


SEQ 243 
ZRCFAS CZRCFAO 4544 FR END TEST 8-Jul=1 : VAX-11 Bliss=-16 V3=555 page 50 
v01.0 TEST SECTION 8-Jul-198 : - SPIDERSUSERS: CLAKSHMANA.11REL.REALJZRCFA (11 


$F -RO 3 SP,* 
(SP)+, (SP)+ 
0000006 : NUM.RETRIES 
000000G 0000006 : MP ppsselennaes -naatt oiase 
000422 16$ 
0000006 : TIP 
0000006 + pehponamatetd 


5$ 
55 


34 

AZT.READY.ERR 
000001 0000006 #1,RET.STATUS 
0000006 J aaa 


16$ 
000001 0000006 MOV #1 ,RETRIES 
000004 0000006 : #4, VEC.AD 
000200 #200,-(SP) 
0000006 MOV #nxinl ,~(SP) 


S 
0000006 VEC.AD, (SP) 
V 43,~(SP) 


ron 
SRARNOR 


000003 4 
PC,SET.INT.VECTOR 


: #*,RCM.REG 
RC25. ADDR,RO 
000002 R12 RO) : RCM.REG,* 
000003 0000006 : 


#3,C 
0000006 0000006 *h, 10; BUF. DESCRPTR 
000164 0000006 #164,BYTE. COUNT 
7 0000006 4% ,EX. SUP. PRG 


8$ 
55 


35 

EXE.SUP.ERR 
000001 0000006 #1,RET.STATUS 
0000006 cy SECOsE 

RO 

7$ 
000010 ~ $10.5? 
000001 0000006 : #1 ome rn ies 
000004 000000G : #4, CMD .REF 
0000006 0000006 atip, “BUF Po 


000002 0000006 MOV #2,8 
0000006 PC, REC. ATA 


0000006 
000001 
000000 





.* SEQ 244 
ZRCFA3 5 FR END TEST 8-Jul-19 : VAX-11 Bliss-16 V3-555 Page 51 
v01.0 8-Jul-19 $ SPIDERSUSERS: CLAKSHMANA. 11REL.RE4LIZRCFA (11 
R 
11$ 
$2 2706 
RE .DATA.ERR 
WORD 
000001 0000006 #1,RET.STATUS 
0000006 all oy neeese 


10$ 
000010 #10,SP 


000001 0000006 : #1,RETRIES 
0000006 : fig 


55 
37 
DMC.ERR 
0 
65 
RO 
12$ 
000010 #10,SP 
BR 16$ 
000001 0000006 : oe 
0000006 : $ RETRIES 
PC,DO.RETRIES 
NUM.RETRIES 


2s 
16$: MOV (SP)+,R1 
PC 


; Routine Size: 159 words, Routine Base: ACS$CODE + 6324 
: Maximum stack depth per invocation: 7 words 


-SBTTL 110 TEST SECTION 
PC,$T10 
66 
RO 
1$ 
PC 
; Routine Size: 6 words, Routine Base: ACS$CODE + 7022 
: Maximum stack depth per invocation: 2 words 


004767 177276 
104466 
006000 
103773 
000207 


! 
BGNTST; 





vile SEQ 245 
ZRCFA3 CZRCFAO 47 24 FR END TEST 8-Jul-19 : VAX-11 Bliss=-16 V3-555 Page 52 
v01.0 . TEST SECTIO 8-Jul-19 $ SP IDERSUSERS: CLAKSHMANA.11REL.REALIZRCFA (11 
14 
TEST #11 = BUS ADDRESSING/DATA TEST A 
DESCRIPTION: 
i THIS “DIAGNOSTIC MACHINE’’ PROGRAM ASKS THE PDP-11 PROGRAM TO FILL FREE 
i MEMORY (THAT patcnan AVAILABLE TO THE PDP=-11 PROGRAM THAT IS NOT BEING 
i USE THE PROGRAM OR THE PDP=-11 SUPERVISOR) WITH AN ADDRESSING 
i PATTERN (WRITE ADDRESS WITH ODDRESS? AND REPORT THE LOCATION AND SIZE 
i OF THE FREE MEMORY. EVERY LOCATION OF FREE MEMORY WILL BE READ AND 
THE DATA CHECKED. 
i 
i 
' 
i 
ie 


IF THE DATA DOES NOT COMPARE CORRECTLY, THE ADDRESS AND DATA 
EXPECTED ARE REPORTED. 


if .SWP_TRACE then PRINTF (DBI"17); ! TEST 11 
NUM_RETRIES = ZERO; 
while (.NUM_RETRIES lequ .SWP_RETRIES) do 
begin 
TIP = 11; 
+ AZTEC_READY () ! GET AZTEC READY FOR OPERATION 
en 


poate 
ERRDF (32, AZT_READY_ERR, 0); 
if .RET_STATUS then DECODE (); 
CKLOOP; 
RETRIES = TRUE; 
end 
— .. 
oa 
SET_INT_VECTOR (); ' SET THE VECTOR ADDR., SERVICE 
ROUTINE ADDR. AND INT. PRIORITY 
COMMAND REFERENCE f 


CMD_REF = 3; ; 
BUF-DESCRPTR = DM 11; ! DMCODE STARTING ADDRESS 
BYTE_COUNT = 100*2; ! BYTE COUNTS 


if EX_SUP_PRG 0 ! ISSUE AN EXECUTE SUPPLIED - 
then i Uf STATUS BIT INDICATES ERROR 


begin 
ERRDF (33, EXE_SUP_ERR, 0); 
if .RET_STATUS then DECODE (); 
CKLOOP; 
RETRIES = TRUE; 
end; 
H_SADD = .FREE_MEM_ADDR; ' LO-BYTE FREE HOST MEMORY ADDRESS 





B 4 


SEQ 246 
CZRCFAO RC25 FR END TEST 8-Jul-1983 15:31:08 VAX-11 Bliss=-16 V3-555 Pose 53 
TEST SECTION 8-Jul=-1983 14:46:50 SPIDERSUSERS : CLAKSHMANA.11REL.REALIZRCFA (11 


TEMP = .H_S “= * ! LOAD START ADDRESS FOR INIT 
BUF LENGTA = M_SIZ; ! TOTAL FREE HOST MEMORY SIZE 
H_EADD = ADD = 2 + (.BUF_LENGTH*2); ! END OF FREE MEM ADDRESS 
REFERENCE 04 


CAD REF ! COMMAND 

BUF SDESCRPTR 2h SADD; ! DESCRIPTOR ADDRESS 

BYT TOTAL BYTES TO BE TRANSFER 
! INITIALIZE” MEMORY “BUFFER WITH A PATTERN BEFORE 
i ASKING DM CODE TO WRITE TO THE BUFFER 


see - — from .H_SADD to .H_EADD by 2 do 
bce = %0'°177777'; 
TEMP = .TEMP + 2; 
end; 
H_EADD = 0; ! HIGH BYTE FREE MEMORY ADDRESS 


if SEND_DATA () ! ISSUE SEND DATA COMMAND 
then : Wd BIT INDICATES ERROR 


333 


aSE9e 


A te A he he he att 
0 
3000 


poate 

ERRDF (34, SND_DATA_ERR, 0); 
if .RET_STATUS then DECODE (); 
CKLOOP; 
RETRIES = TRUE; 
end; 

CMD_REF = 5; 

BUF =DESCRPTR = TIP; ' CLEAN THE BUFFER 

BYTE_C = 02; ! SET BYTE COUNTS = 2 


if REC_DATA () ! SENT A RECEIVE DATA COMMAND 
then : —" BIT INDICATES ERROR 


poate 
ERRDF (35, RE_DATA_ERR, 0); 
if .RET_STATUS then DECODE (); 
CKLOOP; 
RETRIES = TRUE; 
end; 
| EXAMINE THE FREE HOST MEMORY 
- TIP = 2; ! ADDRESS CONTAIN OWN ADDRESS 


if EXAM_DATA () 
then 


PRRDT (36, BUFF _ERR, RC25$ERR_RPT); 


CKL 
RETRIES = TRUE; 
end; 


end; 
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a 4 
ZRCFA3 CZRCFAO 5 14 FR END TEST 231: VAX-11 Bliss-16 V3-555 page 
v01.0 TEST SECT 246: SPIDERSUSERS : CLAKSHMANA. 11REL..REALJZRCFA ai 


if (.RETRIES) then DO_RETRIES (); 
if (.NUM_RETRIES eqlu ZERO) then exitloop; 
end; 


return; 
ENDTST; 


samt $111 TEST SECTION 
000001 0000006 ae. as #1 SUP. TRACE 


0000006 #DBM17,=(SP) 
000001 #1,-(SP) 


(SP)+,(SP)+ 
0000006 : NUM.RETRIES 
0000006 000000G : MP on earner em neee 


000544 
900013 0000006 
0000006 


#13,TIP 

PC,AZTEC.READY 

RO 

6$ 

55 

40 

AZT.READY.ERR 
- WORD 

000001 0000006 cL ART STATS 

0000006 ey necees 


RO 
5$ 


MP 17$ 
0000006 : 21 ne raIES 
000003 0000006 : #3,CMD.REF 
0000006 0000006 MOV #0M.11,BUF .DESCRPTR 
000310 0000006 #310,BYTE.COUNT 
0000006 + scemctiaiiame 


8$ 
55 


41 
EXE.SUP.ERR 
032767 000001 0000006 #1,RET.STATUS 
00140. 7$ 
004767 0000006 JS PC ,DECODE 
104465 : 65 
000 RO 


103575 17$ 
012767 000001 0000006 #1,RETRIES 


000470 





ZRCFAS 
01.0 


016767 


creer 514 FR END TEST 
TEST 


0000006 0000006 
0000006 000000G 
0000006 0000006 


0000006 

0000006 

000002 0000006 
000004 0000006 
0000006 0000006 
000006 0000006 
0000006 

0000006 

177777 000000G 
000002 0000006 
000002 


0000006 
0000006 


000001 0000006 
0000006 


000001 0000006 
000005 0000006 
0000006 0000006 
000002 0000006 


000001 0000006 
0000006 


000001 0000006 
000002 0000006 
0000006 


D 4 


8-Jul-1983 15:3 
B-Jul-1983 14:4 


FREE .MEM.ADDR,H.SADD 


. SADD, TEMP 
MEN.SIZ. Bu LENGTH 
BUF -LE H,RO 


1:08 
6:50 


H.EADD 
PC,SEND.DATA 
RO 

12$ 

55 

ae 

SND .DATA.ERR 
#1,RET.STATUS 
PC,DECODE 

65 

RO 

17$ 
#1,RETRIES 
#5,CMD.REF 
#TIP,BUF .DESCRPTR 
#2,BYTE.COUNT 
PC,REC.DATA 


14$ 
55 


43 
RE.DATA.ERR 
#1,RET.STATUS 
PC, DECODE 

65 

RO 

17$ 

#1 RETRIES 
PCEXAM.DATA 
RO 


VAX-11 Bliss=-16 V3-555 
SPIDERSUSERS : CLAKSHMANA. 


SEQ 248 
poge 55 
11REL.REALIJZRCFA (11 








E 4 


SEQ 249 
ZRCFAS 5 FR END TEST : VAX-11 Bliss=-16 V3-555 pone 56 
v01.0 8-Jul-1 : SPIDERSUSERS: CLAKSHMANA.11REL.REALIZRCFA (11 


BUFF ERR 

RC25SERR.RPT 

65 

RO 

17$ 
000001 0000006 MO #1,RETRIES 
000001 0000006 : o_o 
0000006 PC,DO.RETRIES 
0000006 : Se 


177220 


2$ 
17$: (SP)+,R1 
PC 


3 Routine Size: 200 words, Routine Base: ACS$CODE + 7036 
: Maximum stack depth per invocation: 5 words 


-SBTTL 111 TEST SECTION 
PC,$T11 
66 


004767 177154 
104466 
000 


000006 006 
000010 103773 
000012 000207 


; Routine Size: 6 words, | Routine Base: ACSCODE + 7656 
: Maximum stack depth per invocation: 2 words 


2856 !<BLF/PAGE> 





SEQ 250 
ZRCFA3 crore ¢ C25 FR END TEST 231: VAX-11 Bliss-16 V3-5 Page 57 
v01.0 TEST TION 246: SPIDERSUSERS: 16 Ve PAWA. 1TREL-REALIZRC A (12 


' 
BGNTST; 


e+ 

i TEST #12 ~ BUS ADDRESSING/DATA TEST B 
DESCRIPTION: 

THIS TEST FIRST BRINGS AZTEC DRIVE READY AND ONLINE AND, THEN 

OADS DM_12 PROGRAM VECTOR TO PORT CONTROLLER MEMORY. THEN 

DOES THE” FOLLOWING: 

A. GIVE FREE MEMORY ADDRESS AND BUFFER SIZE TO DM CODE 
AND ASK DM CODE WRITE A PATTERN OF ONE'S COMPLEMENT 

i OF ADDRESS AT THE ADDRESS AND EXPECTS TO RECEIVE 

OR FAILURE CODE FROM DM PROGRAM. THEN CHECKS 
BUFFER FOR THE EXPECTED PATTERN AND REPORTS 

; ERROR IF ENCOUNTERED. 

B. IF SUCCESS, ASKS DM CODE TO WRITE TO MEMORY A PATTERN 
OF ALL ONES AND CHECKS FOR THE PATTERN IN MEMORY. 

i 

i 

i 

le 


C. IF SUCCESS, ASKS DM CODE TO WRITE TO MEMORY A PATTERN 
OF ALL ZEROES AND CHECKS FOR THE PATTERN IN MEMORY. 


IF OPERATOR ASKS FOR RETRIES THE WHOLE TEST WILL BE RETRIED 
ONLY IF FAILURE ENCOUNTERED. 
if .SWP_TRACE then PRINTF (DBM18); ! TEST 12 
NUM_RETRIES = ZERO; 
me a ai lequ .SWP_RETRIES) do 
egin 
= 12; 


44 AZTEC_READY () ! GET AZTEC READY FOR OPERATION 
en 


hey 
ERRDF (37, AZT_READY_ERR, 0); ¢ 
if .RET_STATUS then DECODE (); 
CKLOOP; 
RETRIES = TRUE; 
end 
else 


begin 
SET_INT_VECTOR 0; ' SET THE VECTOR ADDR., SERVICE 
' ROUTINE ADDR. AND INT. PRIORITY 


' SEND DOWN LINE LOAD THE DM CODE AND EXECUTE THE DM PROGRAM WHICH IT WILL 
! WRITE THE FREE HOST MEMORY WITH COMPLEMENT THE TESTING ADDRESS 


CMD_REF = 3; ! COMMAND REFERENCE # 
BUF “DESCRPTR = DM_12; i DMCODE STARTING ADDRESS 





G 4 


ZRCFAS fh sf $4 FR END TEST 8-Jul-1983 15:3 
v01.0 TEST S B-Jul-1983 14:4 


BYTE_COUNT = 202*2; ! BYTE COUNTS 


if EX SUP_PRG () ! ISSUE AN EXECUTE SUPPLIED - 
then ; — BIT INDICATES ERROR 


SEQ 251 
08 VAX=-11 Bliss-16 V3-555 


1: Page 58 
6: SPIDERSUSERS: CLAKSHMANA.11REL.REALIJZRCFA (12 


begin 
ERRDF (38, EXE_SUP_ERR, 0); 
if .RET_STATUS then DECODE (); 


CKLOOP; 
RETRIES = TRUE; 
end; 


incru COUNT from 0 to 2 do 


begin 
HeSADD = = St MEM_ADDR; ' LO-BYTE FREE HOST MEMORY ADDRESS 
BUF LENGTR’ = .MEM_SIZ; ' TOTAL FREE HOST MEMORY SIZE 
H_EADD = .FREE_MER_ ADDR - 2 + .BUF _LENGTH *2; ' END ADDRESS OF BUFFER 


i i sent FREE HOST MEMORY ADDRESS AND IT LENGTH TO DM PROGRAM 


CMD_REF = 4; ! COMMAND REFERENCE 04 

J SDESCRPTR = H_ SADD; ! DESCRIPTOR ADDRESS 

! TOTAL BYTES TO BE TRANSFER 
! INITIALIZE OMEMORY 8 BUFFER with A PATTERN BEFORE 

' ASKING DM CODE TO WRITE TO THE BUFFER 


incru LOOP from .H_SADD to .H_EADD by 2 do 
egin 
oTEMP = %0"125252"; 
TEMP = .TEMP + 2; 
end; 
H_EADD = 0; ' HIGH BYTE FREE MEM ADDRESS 


if SEND_DATA () ! ISSUE SEND DATA COMMAND 
then : co BIT INDICATES ERROR 


oor 

ERRDF (39, SND_DATA_ERR, 0); 
if .RET_STATUS then DECODE (); 
CKLOOP; 
RETRIES = TRUE; 
end; 

‘ 


i | WANE FOR *DONE’* SIGNAL FROM DM 


CMD_REF ' COMMAND REFERENCE # 
BUF “DEscRPth = TIP; i CLEAN THE BUFFER 
BYTE COUNT = 02; i SET BYTE COUNTS = 2 


if REC_DATA () ! SENT A RECEIVE DATA COMMAND 
then ! STATUS BIT INDICATES ERROR 
begin ! THEN 
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SEQ 252 
ZRCFA3 CZRCFAO RC2S FR END TEST B-Jul-1983 15:31:08  VAX-11 Bliss-16 V3-555 | Page 59 
v01.0 TEST SECTI B-Jul-1983 14:46:50  SPIDERSUSERS:CLAKSHMANA.11REL.REALIZRCFA (12 
; 2971 ERRDF (40, RE_DATA_ERR, 0); ' REPORT ERROR 
; 3973 if .RET_STATUS then DECODE (); 
: 2975 CKLOOP; 
; 2976 RETRIES = TRUE: 
3 2977 end; 
3 2978 
: 2979 if .TIP nequ %0°104' ' 1F OM RETURNS FAILURE CODE 
; 2980 then i THEN ABORT DM PROGRAM 
: 2982 bear (41, sme ERR, 0); 
; 2983 RETRIES =" TRUE? 
3 2984 CK 3 
3 2985 exitloop; 
: 2986 end; 
; 2987 
3 2988 =! 
: 2989 | EXAMINE THE FREE HOST MEMORY 
; 2992 if .COUNT eqlu 0 then TIP = 1; ! ADDRESS CONTAINS COMPLEMENT 
3 2994 ! OF ADDRESS 
4 2996 if .COUNT eqlu 1 then TIP = ALL_ONES; | MEMORY PATTERN SECOND TIME 
; 2998 if .COUNT eqlu 2 then TIP = ZERO; ! MEMORY PATTERN THIRD TIME 
: 3000 if EXAM_DATA () 
3 3001 then 
; 3002 begin 
: 3003 ERR DF (42, BUFF_ERR, RC25SERR_RPT); 
: 3005 RETRIES = TRUE: 
: 3006 end: 
3 3007 
; 3008! 
F 300 ' SIGNAL DM TO CONTINUE TO EXECUTE THE PROGRAM 
: 3011 end: ' ASK DM CODE TO CONT. 
3 3012 
; 30135 end; 
PF; 3014 
: 3015 if (.RETRIES) then DO_RETRIES (); 
: 3017 if (.NUM_RETRIES eqlu ZERO) then exitloop; 
: 3019 end; 
: 3020 


3021 return; 
3022 ENDTST; 


TTL $112 Ht SECTION 


000000 004167 (000006 $112: eSSAV ; 
#1,SWP. TRACE ms : 


J 
000004 032767 000001 0000006 8 


I 4 


SEQ 253 
ZRCFA3 5 FR END TEST 8-Jul-1 : VAX-11 Bliss-16 V3-555 page 60 
v01.0 8-Jul-1 g SPIDERSUSERS: CLAKSHMANA. 11REL.REALIZRCFA (12 


1$ 
#08M18,-(SP) 
1,<(S 
1 

(Sp)s (SP)+ 
URETRIES 
“RETRIES, 


0000006 
0000006 0000006 SWP.RETRIES 


3$ 
C 
000014 0000006 #i4,TIP 
0000006 + aedeecnenennet 
6$ 
55 
ab 
= AZT.READY.ERR 
000001 0000006 #1,RET.STATUS 
0000006 * aaa 


RO 
5$ 


PC 
000001 0000006 : #1, RETRIES 
000540 20 


#3,C 

*0h. Me, BUF. DESCRPTR 
#624 BYTE. COUNT 

5° »EX. SUP. PRG 


PEEEEEEEE 
FSNSARNERO 


88 


000142 
000150 
000156 
000162 
000 
000 


9$ 

55 

46 

EXE.SUP.ERR 
000001 0000006 IT 51 RET SIRS 
0000006 J cp eecaee 


RC 
8$ 


PC 
o) AE UREES 
Ay st ——- oH. SADD 


ADD 
Nem. ste BUF .LENGTH 
BUF .LENGTH,RO 


R 
FREE .MEM.ADDR,RO 
DD 


oCMD..REF 
0000006 0006 #H. SADD BUF . scecnrn 
000006 0000006 #6, BYTE. COUNT 





ZRCFAS 


012767 


CZRCFAO st FR END TEST 
TEST SECT 


0000006 
0000006 


125252 0000006 
000002 0000006 
0000006 
0000006 
000001 0000006 


0000006 


000001 copeore 


000001 9000006 
0000006 


000001 0000006 
000000G 000104 


000001 0000006 


000001 0000006 
000001 . 


177777 0000006 


11$: 


12$: 


13$: 


14$: 


15$: 


16$: 


17$: 


18$: 


H.EADD,R1 
H.SADD ,RO 


12$ 
#2, TEMP 


RO,R1 

11$ 

H.EADD 

PC, SEND.DATA 
RO 

14$ 

55 

47 
SND.DATA.ERR 
#1,RET.STATUS 


PC ,DECODE 
65 


24$ 

#1,RETRIES 

#5, CMD. REF 

aTiP, of DESCRPTR 
#2,BYTE.COUNT 

4% >REC.DATA 


16$ 
55 


50 
RE.DATA.ERR 
+! RET.STATUS 
PC ,DECODE 

65 


24$ 
#1,RETRIES 
TIP,#104 
55 

51 

DMC.ERR 
#1,RETRIES 
65 

RO 

22$ 

PC 

R2 

18$ 
#1,TIP 
R2,41 
19 

#-1 TIP 


VAX-11 Bliss-16 V3-555 
SPIDERSUSERS: CLAKSHMANA. 


*,LOOP 


: COUNT 


COUNT ,* 


SEQ 254 
Page 61 
TIREL.REALIZRCFA (12 


2942 


SEQ 255 
ZRCFA3 he tt FR END TEST 231: VAX-11 Bliss=-16 V3=-555 Page 62 
v01.0 TEST SEC 746: SPIDERSUSERS: ; CLAKSHMANA. 1 1REL .REALIZRCPA (12 


a7s34 000002 19$: 3 COUNT,* 2998 
1002 BNE 20 


005067 0000006 TIP 
004767 0000006 : + papi ; 3000 


21$ 
55 
52 


BUFF .ERR 
pened 


24$ 
000001 0000006 ie MOV #1,RETRIES 
000002 ; 


? 177336 10$ 
000001 0000006 228: #1,RETRIES 


0000006 PC,DO.RETRIES 
0000006 23$: NUM.RETRIES 


177114 $ 
248: PC 


: Routine Size: 234 words, Routine Base: ACSCODE + 7672 
: Maximum stack depth per invocation: 7 words 


-SBTTL 112 TEST SECTION 
004767 177050 


104466 

000006 006000 
000010 103773 
000012 000207 
; Routine Size: 6 words, Routine Base: ACSCODE + 10616 
> Maximum stack depth per invocation: 2 words 

end 

eludom 


OTS external references 
-GLOBL $SAVE4, SSAVE2, BLSSHF, BLSDIV 


PSECT SUMMARY 
Psect Name Words Attributes 





L 4 


ZRCFA3 8-Jul-1983 15:31 
8-Jul-1983 14:46: 


5 
SOWNS LCL, REL, CON 
ACSCODE » LCL, REL, CON 


SEQ 256 
+08 VAX-11 Bliss=-16 V3-555 


Page 63 
SPIDERSUSERS: CLLAKSHMANA.11REL.REALIZRCFA (12 


Syabels eoccese= 
File Loaded Percent 


SPIDERSUSERS: LLAKSHMANA, 11REL.REALJAZTECO.L16;1 
523 231 44 


COMMAND QUALIFIERS 
BLISS /PDP11/LIST ZRCFA3.B816/EN:NOEIS 
2253 code + 336 data words 
: Time: 00:53.6 
; Elapsed Time: 02:45.0 


; Memory Used: 296 pages 
; Compilation Complete 





mM 4 


ZRCFAG CZRCFAO RC25 FR END TEST 8-Jul-1983 15:3 
8-Jul-1985 14:4 


0001 MODULE ZRCFA4 eS *CZRCFAQ | RC25 FR END TEST’ 


SEQ 257 
3:57 VAX-11 Bliss=-16 V3-555 Page 1 
7:41 SPIDERSUSERS: CLAKSHMANA. 11REL.REALIJZRCFA (1) 


$ 0002 

3 0003 ADDRESSING _ NODE * (RELATIVE) 

3 0004 )s 

3 0005 BEGIN 

; 6008 '<BLF /LOWERCASE_KEY> 

3 sso library ‘AZTECO'; ! AZTEC LIBRARY 
$ 9918 require *BLSMAC.REQ'; ' DIAGNOSTIC SUPERVISR LIBRARY 
3 1500 ! 

3 1501 %sbttl "DM PROGRAM’ 

3 1502 

: 1503 ‘++ 

3 1504 ! 

3 1505 ! THIS MODULE ae DM CODE FOR SOME OF THE TESTS 

3 1506 ! AS GLOBAL .~ THE HOST PROGRAM WILL DOWN LINE LOAD 

3 1507 ! 3 AY rests | N AZTEC CONTROLLER'S MEMORY FOR EXECUTION. 
é 1508 ! AS FIRST ASSEMBLED AND LINK 

; 1509 ! a THEN Bkp AS VECTOR ARRAYS BY USING DMCONV.EX 

; 1510 ! MODULE IS A COLLECTION OF ARRAYS FOR SPECIFIC © 

: 1511! tests. 

: 1512 !<e2 

; 1513 

: 1514 !<BLF/PAGE> 


N 4 


SEQ 258 
ZRCFA4 CZRCFAO RC25 FR END TEST 8-Jul-1983 15:33:57 VAX-11 Bliss=-16 V3=555 poet 2 
v01.0 DM PROGRAM B-Jul-19835 14:47:41 SPIDERSUSERS: CLAKSHMANA. 11REL.REALIZRCFA (2) 


psect 
global = DMSCODE(nowrite, noexecute, global, concatenate); 


ZRCFAG CZRCFAO RC25 FR END TEST 8-Jul-1983 1 
v01.0 DM CODE DOWN LINE LOAD TEST 8-Jul-1983 1 


%sbttl ‘DM CODE DOWN LINE LOAD TEST’ 


SEQ 259 
:33:57 VAX-11 Bliss-16 V3-555 pope 3 
47:41 SPIDERSUSERS : CLAKSHMANA. 11REL .REALIZRCFA (3) 


ive} 
— 

°o 
Log 

ow 
ze 


So 
nmnunnnnnnnnnnnnnnnnnnnnndhnnnnnnndnhananhnnhanaanahananaaeaee nwo 
°o 
2 
~ 
So 
= 
na 
. 


: vector (93, word] pres 
*000270°, ! THIS 


et ( 
() IS THE DM PROGRAM BYTE COUNT. 
%0°000000', 
%0°000000", |! THIS IS THE DM OVERLAY BYTE COUNT. 


%0'042524', ! NEXT 3 WORDS = PROGRAM NAME (ASCII) 
30 Dee 1e2,° ! PROGRAM NAME IS ‘TESTO9* 


%0'000000', ! THIS IS THE PROGRAM VERSION 
%0'126411°, ! UPPER BYTE=TIME OUT VAL. LOWER = FLAGS 


%0'104206', ! DM CODE STARTS HERE 


MWR ERRRERARL SE BWWWWWWWWWNDNNDNNNNDN 2 2 2 2 222 SF OD NOU EWN =O 
=O OO NAUEWR 0 OONAUSWN 0 OONAUEWN 0 DOONAUEWN —OUUYNw 


™m 
ey 


%0°104200°, 
%0°000106", 


RRMMMMMMFRANNNNNNNNANANNNNNNNNNNNNNANMNNNANAMMAMAA MAMMA ss eee eee 


wv 





¢ 3 


SEQ 260 
ZRCFAG CZRCFAO RC25 FR END TEST 8-Jul=19 3 VAX=-11 Bliss-16 V3-555 page 4 
v01.0 M CODE DOWN LINE LOAD TEST 8-Jul-19 : SPIDERSUSERS: CLAKSHMANA.11REL.REALIJZRCFA (3) 


AACQOUMMAUIVIVI 
WN SO CONOUSW a 


FOIA AMM Oo 


%0°0000 
40° 144423', 
%0'000000'); 


. 
° 
- 
° 
. 
° 
. 
o 
. 
, 
- 
e 
. 
° 
* 
° 
8 
eo 
. 
e 
7 
. 
7 
° 
. 
oO 
” 
° 
7 
e 
7 
e 
. 
° 
. 
° 
2 
° 
o 
° 
° 
e 
. 
e 
o 
o 
. 
e 
~ 
. 
e 
e 
° 
© 
° 
. 
° 
. 
° 
+ 
° 
e 
° 
. 
° 
«© 
e 
~ 
e 
o 
e 
. 
° 
. 
e 
. 
e 
7 
e 
. 
° 








dD 5 


SEQ 261 
ZRCFAS CZRCFAO_RC25 FR END TEST 8-Jul-1983 15:33:57 VAX-11 Bliss-16 V3-555 Page 5 
v01.0 NONEXISTENT MEMORY TEST B-Jul-1983 14:47:41 SPIDERSUSERS: CLAKSHMANA.11REL.REALIJZRCFA (4) 


%sbttl "NONEXISTENT MEMORY TEST‘ 
global 
DM_10 : vector (58, word] preset ( 
%0°000162' ' THIS IS THE DM PROGRAM BYTE COUNT. 
! THIS IS THE DM OVERLAY BYTE COUNT. 


! NEXT 3 WORDS = PROGRAM NAME (ASCII) 
! PROGRAM NAME IS ‘TEST10° 


! THIS IS THE PROGRAM VERSION 
! UPPER BYTE=TIME OUT VAL. LOWER = FLAGS 


M—OOOnNO 
Lam] 
o 
u 


POE OE EE Oe ep 
Ay ste ape at ty MmMnNn———— 
btw WN $9 OONOUS WwW 


Come Lge Ln Lum Ln Lon Ld Le le le Le Lone | le Le Lm [me | | DDD LL | | | | | 


! DM CODE STARTS HERE 


me ee ek ed ed ed ed ed at od = = od =) = 


AAAAACOW 
WWW 


ONAOULSWN Oo 0OOn 
FWN $0 OONAUSWA) $0 CONOAUEWN — OU Hts 


WWWWIWIWINININININNNNNID 2 2 2 OO OM SS OONO MI EWI 
hd Md hd Mid hil Mal had Mal Mal Nal el Ra he Na a Cal fl Hal had Kael bed 


BABRARAAAAR REE RRR ERE 


TRESS. 
M—OOCBNOW 


%0°000000°, 
%0°000000", 


o 
° 
° 
o 
7 
° 
. 
° 
. 
° 
7 
° 
o 
° 
a 
° 
. 
e 
o 
° 
. 
€ 
© 
° 
7 
° 
. 
© 
* 
° 
° 
a 
. 
° 
. 
° 
7 
° 
. 
e 
. 
° 
o 
e 
a 
° 
. 
° 
. 
° 
* 
° 
. 
° 
7 
o 
< 
° 
« 
° 
~ 
° 
. 
e 
. 
e 
° 
° 
- 
° 
. 
° 
. 
° 
eo 
a 
e 
e 
- 
= 
o 
° 
. 
° 
2 
° 
= 
a 
. 
of 
© 
eo 
8 
° 
. 
eo 
7 
e 
- 
° 
. 
e 
. 
Ss 
+ 
e 
° 
* 
~ 
a 
~ 
” 


ee ee ee ee ee ee ee ee me ee ee ee ee ee ee ee ee ee ee ed ed ed ed ed ed = od od od 


ARO 
NINN 








SEQ 262 
ZRCFAG CZRCFAO RC25 FR END TEST 233: VAX-11 Bliss-16 V3=555 


Page 6 
v01.0 ONEXISTENT MEMORY TEST 247: LO TDERSUSERS:CLAKSHMANA. 11REL.REALIJZRCPA (4) 


%0°000000"); 





, 3 


ZRCFA4 CZRCFAO RC25 FR END TEST 8-Jul-1983 1 
v01.0 BUS ADDRESSING/DATA TEST A 8-Jul-1983 1 


%sbttl "BUS ADDRESSING/DATA TEST A’ 


SEQ 263 
4 VAX=11 Bliss-16 V3-555 


233: pone 
747: SPIDERSUSERS: CLAKSHMANA.11REL.REALIZRCFA (5) 


5 5 
4:47:34 


o 
~ 


$2 G0 G0 G0 
Wr Oo”O 


: vector (100, word] preset ( 
*000306' ' THIS IS THE DM PROGRAM BYTE COUNT. 


! THIS IS THE DM OVERLAY BYTE COUNT. 


! NEXT 3 WORDS = PROGRAM NAME (ASCII) 
! PROGRAM NAME IS ‘TEST11° 


! THIS IS THE PROGRAM VERSION 
! UPPER BYTE=TIME OUT VAL. LOWER = FLAGS 


oo 


Oo 
PAM MT MMMMMMMMMMNNM MMMM MAMAN AAs aee 


ee ed ed ad ed = ts ot = 


Ano 
SOSB 


so 
= OONAUSWN oO 


WA) $0 OOONOUSWA $0 OONOUE WD OW YY 
o 


I a dd hid ed Ml hal hal Ma he ed Ma il bad hid bad ld bad 


! DM CODE STARTS HERE 


SSLESE 
WWWIUNININNNNNNNNN 2 


DONAVSWN—OVOONOUSWN Oo 
ery ee ee ee eee 


NNNNNNNNNNNN NN SSS SSS 


WWIWIWIRININININININININDID 2 OO OO 


nonnnnnnnnnnnnnnnnnHnHnnnnanhanhdnaahnhanhnnaahhanaaaanaaaaeee o— 


NN 
WG 


mee ee ee ee ee me ee ee ee ee ee ee ee ee ee ed ed ed ed ed ed ed od = 


MEW Ovo 
RAAMAAAMMAMAMS 
Vu 





G 5 


ZRCFAS CZRCFAO RC25 FR END TEST 8-Jul-1983 15:33: 
v01.0 US ADDRESSING/DATA TEST A B-Jul-19835 14:47: 
%0'106200°, 

*000012° 


57 
41 


o 


EEA 


r) 04°, 
%0°013027', 
%0' 105200", 


SANG 


a 
WhO Con 


~“ 
, a 
ws 


— YY 
> 
OONO 


ANNAN 


~ 
vw 
-—-o 


NNN NSN NNN SSNS 
SOS SSCS SSS asus 
WHO OONOULE Ww 
ere were eer’ 


io 


™~ 
Wt ts ttt 


ANNNNNN 
N 


ee ee eS SS SS) 


%0'000000'5; 


eee ee ee ee ee ee ee ee me me ee i el es ee ee a el ee ee ee ee ee ed ed ed ed eed eed ed 


VAX-11 Bliss=16 V3=-555 
SPIDERSUSERS: CLAKSHMANA. 


SEQ 264 
pose 8 
11REL.REALIJZRCFA (5) 








H 5 


SEQ 265 
ZRCFAG CZRCFAO RC25 FR END TEST 8-Jul-1983 15:33:57 VAX-11 Bliss-16 V3-555 Page 9 
v01.0 BUS ADDRESSING/DATA TEST B 8-Jul-1983 14:47:41 SPIDERSUSERS: CLAKSHMANA. 11REL.REALIJZRCFA (6) 


%sbttl "BUS ADDRESSING/DATA TEST B° 


Vn 
@o0o 
WP 
wo 
ronal 
° 
of 
z-— 
t 
— 
™ 


: vector fg0e. word) preset ( 
%0'00062 ° ' THIS IS THE DM PROGRAM BYTE COUNT. 


Le) 6 
a as ! THIS IS THE DM OVERLAY BYTE COUNT. 


! NEXT 3 WORDS = PROGRAM NAME (ASCII) 
! PROGRAM NAME IS ‘TEST12° 


! THIS IS THE PROGRAM VERSION 
: UPPER BYTE=TIME OUT VAL. LOWER = FLAGS 


QAOulwn—o 


enrmmrrer 
WWWAIWINININININININI NNN 2 2 2 2 OO POON 


A 


BSIFFRASITISSEE 


ee ee ee eee eer) 
@ 


a88 


: 


Came |e Lf Lie [lo Le |e Le |e | ee | | | || | DD | ee |e | |e | 


! DM CODE STARTS HERE 


s3e8 
onaOwW 
Ket Ltt 


FaN=ee 


ad a Se a a 


0 Cd 00 09 Oo Co Go Co Co CO 
MO OOO NOUSWN $0 OONOUES WD — OU Yl 


FWN-SCOONOuU 
w 


ek ee ee mek ek ek a ek ek ed ed ed od ed ed 
Moronor 


(0 Go Go Go Go Go Go Go Go Go Go Oo Go Oo Ge Ge Oe Ge Ge Oo 
¥ Wmnwnryvves 
WN -SO0OnNOu 


NAG 
ooon 


” 
o 
7 
o 
. 
° 
. 
e 
. 
° 
. 
° 
. 
° 
2 
° 
. 
eo 
o 
° 
. 
° 
o 
2 
° 
ao 
o 
° 
. 
° 
7 
° 
e 
° 
2 
° 
o 
° 
. 
e 
o 
° 
. 
° 
7 
a 
. 
° 
[ 
e 
. 
o 
. 
° 
° 
8 
° 
= 
° 
. 
° 
2 
oO 
. 
2 
a 
e 
. 
° 
- 
e 
° 
a 
* 
° 
e 
. 
e 
2 
° 
2 
oe 
. 
o 
. 
° 
» 
wo 
. 
s 
. 
° 
- 
e 
- 
e 
o 
e 
o 
* 
7 
° 
. 
o 
. 
° 
© 
° 
o 
. 
+ 
° 


kk ek ek dt 
w 
w 

MOC OONOUSwh— 


rs 





SEQ 266 
CFAO RC25 FR END TEST 233: VAX=11 Bliss-16 V3-555 


ZRCFAG CZ page 10 
ADDRESSING/DATA TEST B 8 247: SPIDERSUSERS: CLAKSHMANA. 11REL.REALIJZRCFA (6) 


v01.0 


AAAQOMMMAMNVIVIMN z 
DONOUSW OD 


WwnN—o 


%0'0000 
%0°060023', 
%0°103207", 


WDONAUESWN $0 OONOULS WN 
Ce] a | | | | 


0 ’ 
%0'104300°, 
%0°002770°, 
%0'002777", 
%0'104300° 


FERESSSSSESSSORERERELER 


Seetaar 


ANNN 
Wr 


%0°003002", 
23 


eee ee ee ee ee ee ed ed eed ed ed od 
0 00 C0 C0 C0 00 00 C0 C0 Co 
N 
= 


Saou 
SSsseserae 


Ue |e ||| | 


> . 
%0'115400°, 
%0°003000°, 
%0°117401", 
%0°053041' 

i] 00° 


eee ee eee ee) 


SERRSREee 

NOUESWNM OO 
AAMAS 
Sss3e 


83 
Oo 
Se | DD Le | 


==ssoonDoos 
oooo 
Wh OW 


ooo 
yb 


0 00 09 Co Co Go 
wn— 


() 
%0°000001°, 
%0°104203", 


o 
e 
a 
° 
- 
° 
2 
e 
a 
2 
° 
° 
. 
° 
. 
° 
. 
° 
o 
€ 
. 
° 
. 
° 
7 
e 
& 
° 
- 
° 
. 
° 
. 
° 
. 
° 
o 
° 
. 
o 
a 
o 
. 
a 
° 
o 
eo 
° 
e 
+ 
ca 
o 
e 
. 
e 
o 
° 
. 
° 
+ 
e 
7 
e 
- 
. 
- 
e 
. 
° 
° 
a 
e 
o 
. 
e 
© 
° 
° 
oe 
. 
- 
° 
° 
7 
° 
© 
e 
© 
e 
o 
° 
o 
e 
. 
co 
. 
@ 
. 
e 
. 
e 
o 
a 
” 
° 
. 
& 
2 
cm 
. 
e 
° 


me ee ee eed od et ot to oD I 


Socses?s 
ODONAW 
Vuuwut 


co 
© 
N 





J 5 


SEQ 267 
B-Jul-19 : VAX=-11 Bliss=-16 V3-555 


ZRCFAG CFAO RC25 FR END TEST pone 11 
ADDRESSING/DATA TEST B 8-Jul=19 : SPIDERSUSERS: CLAKSHMANA. 11REL.REALIJZRCFA (6) 


v01.0 


co 
oO 
oo 


$3838233 


Sees 
WAWWIARIPONONIPUNINININID 2 2 2 OO Os 


aw Ss 


CONOULSWN—O 
a a 


WN 0 OBNAUSWN $0 OONOAOUSWN Oo 


WOOOOOOOOOOOOONO 


mon 
Wr—o oO 


™Nm 
WUW 
Nu 


000 
MONMONP 
aus 
ah a hah a had ld Rae Ma Ml hal Ma Laced Mal Mal al Nall Re il Nal Me Meld Bee Mal hee bald 


me me ee ee ee ee ee ee ee ed ed ed ed ed ed ed ed ed 
STITT IIIT RN 
QAVEWN $0 OONAUSWN OO 
DANN AA AAAI EE EEE EEE SS 
ONAULWN © OONAUSWN OO 


wn -Oo0On 


. 
o 
. 
e 
. 
e 
. 
° 
. 
e 
. 
° 
. 
e 
o 
© 
2 
a 
o 
eo 
7 
o 
o 
° 
. 
° 
e 
° 
° 
eo 
o 
° 
. 
ci] 
. 
° 
. 
o 
a 
@ 
. 
e 
e 
e 
. 
e 
° 
° 
o 
o 
. 
° 
* 
a 
a 
e 
o 
e 
. 
° 
. 
° 
o 
co 
+ 
eo 
o 
e 
2 
eo 
. 
< 
o 
° 
~ 
ee 
o 
° 
o 
° 
. 
eo 
o 
o 
* 
° 
7 
e 
© 
° 
a 
° 
o 
7 
. 
ca 
a 
e 
. 
a 
o 
° 
° 
° 
© 
° 
e 
. 
a 
* 
° 
7 
° 


ee ee ee ee ee me a ee ee ee ee ee ee ed ed ed ed ed ed ed ed 


00000 
Manna 
ADAAAOS 
AuUswn—oo 
pay ae ee ee ee 





SEQ 268 
ZRCFA4 CZRCFAO RC25 FR END TEST 8-Jul-1983 15:33:57 VAX=11 Bliss=16 V3-555 pope 12 
v01.0 BUS ADDRESSING/DATA TEST B B-Jul-1983 14:47:41 SPIDERSUSERS: CLAKSHMANA. 11REL.REALIJZRCFA (6) 


SESLELELELSSSAS 
NOUSWN—OOONOuU 
Coen | aoe | tm Lt Lee Lm Litem le Le Le Lim Loe Le | ee DD DD DD | | 
S 
ed 


a ak ek ek ad dd od 
S 
oo 


eS Sar er ee 
00 0000 0009 09 00 09 0909 SINSINI SIN NNN IO OO 
CONAUSWN —$O OONAUSWN—OO 
ad ad Mad Ml Rad Had Cael Me Md Ma Le Me ee hac hal el hand hal hal bed 


oees 
Whoo 
ad a a dd 


ek ek ed ad ed ed od od 
RAR 


te] 
%0'165572° 
%0"000000'5; 


ooo 
3 


WwnN=— 


ZRCFA4 CZRCFAO RC25 FR END TEST 
/v01.0/ 


DMSCODE, RO. D . GBL 
270 


0 
42524 
$5158 
34460 
-51367 
0 


0 





= 


ZRCFAS CZRCFAO RC25 FR END TEST 8-Jul=1 15:33: 
v01.0 4:47: 


SEQ 269 
983 57 VAX=-11 Bliss-16 V3-555 
BUS ADDRESSING/DATA TEST B B-Jul-1983 14:47:41 


| poge 13 
SPIDERSUSERS: CLAKSHMANA. 11REL.REALIJZRCFA (6) 


teeter ea vee eee 
aad aad ad ed 
SKEYSRRNSSRVSE 


MIU & & & 


—— 
b+ 4 
Las) 
wi 


S 
3 


000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 


ad 2 HH HB HH HH UI 


SSONANNAR® 
-Oo=-0— 


= 
SSeS 
RSSSSsye 





ZRCFAG 
v01.0 


CZRCFAO RC25 FR END TEST 
BUS ADDRESSING/DATA TEST B 


DM.10:: . 


-73571 
3040 
=73577 
60022 


Coon 
Nm =] 
So 
rs 
So 


t' GDOCooooOooOooooo 


33355 


§t OW SOOO oO 
ww onrv oa 
-_- o-vVi Nm 
Ww orn 
= mS 


Sooooooo | o 


8-Jul-1 
8-Jul-1 


98 
98 


3 15:33: 
3 14:47: 


5 
4 


7 
1 


VAX-11 Bliss-16 V3-555 
SPIDERSUSERS : CLAKSHMANA. 


SEQ 270 
Page 14 
11REL.REALIZRCFA (6) 


N 5 
ZRCFAS CZRCFAO RC25 FR END TEST 8-Jul-1 
v01.0 


SEQ 271 
3 15:33:57 VAX-11 Bliss-16 V3-555 
3 14:47:34 S 


98 _ _ Page 15 
BUS ADDRESSING/DATA TEST B 8-Jul-198 41 PIDERSUSERS: LLAKSHMANA. 11REL.REALIZRCPA (6) 





B 6 


ZRCFA4 CZRCFAO RC25 FR END TEST 8-Jul=1 
v01.0 


SEQ 272 
983 15:33:57 VAX=-11 Bliss=16 V3=555 
BUS ADDRESSING/DATA TEST B 8-Jul-1983 14:47: 


rege 16 
41 SPIDERSUSERS: CLAKSHMANA.11REL.REALIZRCFA (6) 


0 
0 
0 
0 
0 
0 
0 
0 





ZRCFAG 


001070 


II IOOO 


egggsssgggesssss 
BRNORRVOOR 


000 
000104 
000106 


CZRCFAO RC25 FR END TEST 
BUS ADDRESSING/DATA TEST B 


DM.12:: . 


Woeossosoesss 
™N 
.> 
N 


™m 
—m 


Ww 
mon 
AWS 


tOWUSLOOCOAS 
=r 


W 
a 
™N 


Nm it oOoooo°oo 


Ww 
S 
So 
eS 


= DOCS OCOCOSCOOOCOSCOOOOOOoOooooo 


VAX-11 Bliss=16 V3=555 
SPIDERSUSERS : CLAKSHMANA. 


SEQ 273 
pepe 17 
11TREL.REALIJZRCFA (6) 


D 6 


SEQ 274 
CZRCFAO RC25 FR END TEST B-Jul-1983 15:33:57 VAX-11 Bliss=16 V3=555 rege 18 
BUS ADDRESSING/DATA TEST B 8-Jul-1983 14:47:41 SPIDERSUSERS: CLAKSHMANA.11REL.REALIJZRCFA (6) 


~ 
xz 
= 
mn 
> 
n 


MMMMMNMNMNNMNVOOOOOooo 


WWIANIAIWAW 
Mm = 
=U = non — 
oOuconcoco-o 


vO 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


eee ee ee ee ce ee ce ce ce ee ce ee ce ee ee ce ee ee ed ed ee ee ee ee wed ed ed ed eed ed ed 
~ 


gggesegeessees 


~77316 





par per par Geer er Par Pard 
= 


E 6 


SEQ 275 
CZRCFAO RC25 FR END TEST 8-Jul-1983 15:33:57 VAX-11 Bliss-16 V3-555 page 19 
BUS ADDRESSING/DATA TEST B B-Jul-1983 14:47:41 SPIDERSUSERS: CLAKSHMANA.11REL.REALIJZRCFA (6) 


«WORD 77315 


-WORD 3000 
eWORD  =73576 
WORD 1 
«WORD =73575 
-WORD 3002 
-WORD 60021 
eWORD = =74571 
WORD =40 
-WORD 62771 
WORD 13113 
-WORD -62400 
-WORD 3003 
WORD -71600 
-WORD 12 
«WORD 3003 


- WOR -73517 
WORD = =73511 
WORD 0 
WORD =73571 
eWORD 2775 
eWORD =73577 
WORD 1 
-WORD 60023 
WORD 0 
WORD =73500 
~WORD 2770 
~WORD 2777 
WORD =73500 
-WORD 2771 
-WORD 3000 
eWORD =73477 
eWORD 2772 
WORD 73600 
WORD =1 
-WORD 3002 
-WORD 23063 
-WORD =72600 
WORD 2 
eWORD 2777 
eWORD =63000 
- WORD erie 

- WORD 3152 
-WORD  -62400 
-WORD 3000 
-WORD +-60377 
«WORD = 53141 
-WORD 0 
-WORD  +=73500 
-WORD 2770 





F 6 


SEQ 276 
ZRCFAG CZRCFAO RC25 FR END TEST 8-Jul-1983 15:33:57 VAX-11 Bliss-16 V3=555 pope 20 
v01.0 BUS ADDRESSING/DATA TEST B B-Jul-1983 14:47:41 SPIDERSUSERS: CLAKSHMANA.11REL.REALIJZRCFA (6) 


PSECT SUMMARY 


Psect Name Words Attributes 
DMSCODE 453 0, D , GBL. REL, CON 


LIBRARY STATISTICS 
Blocks 





ZRCFAG 
v01.0 


CZRCFAO RC25 FR END TEST 
BUS ADDRESSING/DATA TEST B 


Elapsed Time: 
Compilation Complete 


Total Loaded 


SPIDERSUSERS : CLAKSHMANA. 11REL REAL JAZTECO.L16; 1 


523 4 


COMMAND QUALIFIERS 


BLISS /PDP11/LIST ZRCFA4.B16/EN:NOEIS 
0 code + 453 data words 
00:23.9 


G 6 


B-Jul-1983 15:33:57 

B-Jul-1983 14:47:41 
Percent Read 
0 19 


VAX=-11 Bliss-16 V3-555 
SPIDERSUSERS: CLAKSHMANA. 


SEQ 277 
page 21 
TIREL.REALIJZRCFA (6) 





H 6 


SEQ 278 
ZRCFAS 8-Jul-19 : VAX-11 Bliss=-16 V3-555 coer 1 
8-Jul-19 : SPIDERSUSERS: CLAKSHMANA. 11REL.REALIZRCFA (1) 


MODULE ZRCFAS = 
BEGIN 
TITLE *LASTAD AND SETUP’ 


REQUIRE *BLSMAC .REQ*; 

LIBRARY ‘AZTECO’; 

crab "LAST ADDRESS AND SETUP SECTION’ 
BGNSETUP (0); 

ENDSETUP; 


-TITLE ZRCFAS LASTAD AND SETUP 


-PSECT $xvYZ$, RO 
000004" BLSLAS::.WORD TSFREE 
000000C «WORD <<TSFREE-<BLSLAS+4>>/2> 
000000 TSFREE::.WORD 0 


000004" LSLAST 


== BLSLAS+4 
000000 TSPTHV== 0 


» SBTTL SEND.LINK LAST ADDRESS AND SETUP SECTION 
000000 000207 SEND.LINK Rie pe 


: Routine Size: 1 word, Routine Sase: $XxYZ$ + 0006 
> Maximum stack depth per invocation: 0 words 
1308 END 
1503 
1504 ELUDOM 


PSECT SUMMARY 


Psect Name Words Attributes 
$xvZ$ 4 RO, I , LCL. REL. CON 


LIBRARY STATISTICS 


. coceeeee Symbols eoooooo= Blocks 
File Total Loaded Percent Read 


SPIDERSUSERS : [LAKSHMANA. 11REL.REAL JAZTECO.L16;1 
523 0 0 16 





I 6 
ZRCFAS LASTAD AND SET 8-Jul=19 : VAX-11 Bliss-16 V3-555 


SEQ 279 


uP Page 2 
LAST ADDRESS AND SETUP SECTION B-Jul-19 3 SP IDERSUSERS: LL AKSHMANA. 11REL.REALIJZRCPA (1) 


COMMAND QUALIFIERS 
BLISS /PDP11/LIST ZRCFAS.B16/EN:NOEIS 


; Size: 1 code + 3 data words 
; Run Time: 706.1 

: psoeee Time: 00:15.1 

; a Used: 103 pages 

; Compilation Complete 





CZRCFA.EXE 


Partition name : DUMMY 
Identification : v01.0 
Task UIC : (300,10) 
Task attributes: -HD 
Total address windows: 


1. 
Task image size : 12128. words 
Task address Limits: 002000 06 
R-W disk blk Limits: 000002 000061 000060 00048. 


*** Root segment: ZRCFA1 


R/W mem 


Memory allocation 
8-JUL-83 


a TKB 440.02 
15:46 


Limits: 002000 061247 057250 24232. 


Disk blk Limits: 000002 000061 000060 00048. 


Memory allocation synopsis: 


Section 


. BLK. :(RW,I,LCL.REL,CON) 
AASCOD: (RO,1.LCL REL, CON) 
ABSCOD: (RO, 1,LCL,REL,CON) 
ACSCOD: (RO, 1,LCL,REL,CON) 
BLSCOD: (RO,1,LCL REL, CON) 


DMSCOD: (RO,D,GBL REL .CON) 
$GLOBS: (RO,D,GBL REL ,CON) 
SOWNS :(RW,D,LCL,REL.CON) 
SPLITS: (RO,D,GBL REL, CON) 
$xvZ$ :(RO,I,LCL,REL,CON) 


02000 000000 00000 


3 


2 
2 
rd 
4 
6 
3 
r4 
4 
4 


SSSsssss 
= =aAn— 00 
NMUNNAASW 


oooo 
oo 
SOA 
SCOwWW 
parry = 
oooooo 


Page 1 


Title 


ZRCFA1 V01.0 
ZRCFA2 V01.0 


ZRCFA2 V01.0 
ZRCFA3 V01.0 


BI6MUL V3.0 
BI6SAV V3.0 


ZRCFA4 V01.0 
ZRCFA1 V01.0 
ZRCFA3 V01.0 
ZRCFA1 V01.0 
ZRCFAS NONE 


File 


ZRCFA1.08J;1 
ZRCFA2.0BJ;1 


ZRCFA2.0BJ;1 
ZRCFA3.0BJ;1 


NEISLB.OLB;4 
NEISLB.OLB;4 


ZRCFA4.OBJ;1 
ZRCFA1.0BJ;1 
ZRCFA3.0BJ;1 
ZRCFA1.0BJ;1 
ZRCFAS.OBJ;1 





Global symbols: 
ADAPTO 042714-R 
AHEAD. 050674-R 
AVAILA 011762-R 
AVERAG 016344-R 
AZP.IN 005110-R 
AZTEC. 017500-R 
AZT.IN 004236-R 
AZT.RE 052216-R 
BHEAD. 050730-R 


BLSDIV 031470-R 
BLSLAS 061236-R 
BLSMOD 031502-R 
BLSMUL 031244-R 
BLSSHF 031514-R 
BRERR 050132-R 
BUFF .E 047662-R 
BUF .DE 041264-R 
BUF .LE 041374-R 


BYTE.C 041270-R 
BYT.CN 041406-R 
B.MASK 041321-R 
CANCEL 041346-R 
CHEAD. 050764-R 
CLK.AD 035520-R 
CLK.CS 035524-R 
CLK.HE 035526-R 
CLK.IN 003276-R 


CLK.ST 035530-R 
CLK.TY 035522-R 
CLOCK. 003530-R 
CMD.RE 041266-R 
CMD.SL 041350-R 
COM.AR 035546-R 
CONTRO 042746-R 
CTO.ER 050632-R 
DATA.X 016764-R 


041302-R 
041304-R 
041306-R 
041310-R 
044010-R 
044410-R 
044452-R 
044520-R 
044560-R 


044614-R 
044650-R 
044712-R 
044756-R 
045026-R 
045076-R 
044110-R 
045136-R 
045206-R 


045256-R 
045324-R 
045406-R 
045452-R 
045510-R 
045554-R 
045614-R 
045664-R 
044124-R 


SEQ 281 





CZRCFA.EXE 
ZRCFAI 


045724-R 
045762-R 
046024-R 
046060-R 
046100-R 
046122-R 
046146-R 
046210-R 
046254-R 
046314-R 
044136-R 
044152-R 
044166-R 
044200-R 
044244-R 
044326-R 
017764-R 
002166-R 
051020-R 
047740-R 
061404-R 
017246-R 
041410-R 
061412-R 
031670-R 
032162-R 
032346-R 


Memory allocation “* 


8-JUL-83 


ERR.02 046450-R 
EXAM.D 016522-R 
EXE.SU 052256-R 
EX.SUP 006464-R 
FAL.CO 041402-R 
FIND.C 003344-R 
FMTSA 047162-R 


FMTSC 
FMT1 
FMT2 
FMT3 
FMT4 
FMTS 
FMT6 
FREE .M 
FRU 
GET.CM 
GET.RE 
GET.UN 
GP$1 
GP$2 


GP$7 
HEAD.A 


046516-R 
046524-R 
046610-R 
046670-R 
046764-R 
047022-R 
047102-R 
041364~R 
042664-R 
015464-R 
015532-R 
014770-R 
002320-R 
002330-R 
002340-R 
002352-R 
602370-R 
002402-R 
002410-R 
035756-R 


e TKB M40.02 
246 


LSAU = 003250-R 
LSAUT 002070-R 
LSAUTO 003142-R 
LSCCP 002106-R 
LSCLEA 003224-R 
L$CO 002032-R 
LSDEPO 002011-R 
LSDESC 002256-R 
LSDESP 002076-R 
LSDEVP 002060-R 
LSDISP 002124-R 
LSDLY 002116-R 
LSDTP 002040-R 
LSDTYP 002034-R 
L$DU 003236-R 
L$DUT 002072-R 
LSDVTY 002232-R 
LSEF 002052-R 
LSENVI] 002044-A 
LSERRT 002154-R 
LSETP 002102-R 
LSEXP1 002046-R 
LSEXP4 002064-R 
LSEXPS 002066-R 
LSHARD 002320-R 
LSHIME 002120-R 
LSHPCP 002016-R 


Page 2 


LSNDHW 002176-R 
LSNDSF 002416-R 
LSNDSW 002222-R 
LSPRIO 002042-R 
LSPROT 002224-R 
LSPRT 002112-R 
LSREPP 002062-R 
LSREV 002010-R 
LSRPT 002440-R 
LSSFTL 002366-R 
LSSOFT 002370-R 
L$SPC 002056-R 
LSSPCP 002020-R 
LSSPTP 002024-R 
L$STA 002030-R 
L$SW 002202-R 
LSSWLE 002200-R 
LSTEST 002114-R 
LSTIML 002014-R 
LSUNIT 002012-R 
MANU.S 041322-R 
MECHAN 043032-R 
MEM.SI 041366-R 
MINUTE 041276-R 
MSGADR 041314-R 
MSG.AD 051364-R 
MSG.AV 052146-R 


MSG.TK 051054-R 
MSG.WR 052062-R 
MSG.01 046372-R 
MSG.1 047254-R 
MSG.10 047506-R 
MSG.11 047554-R 
MSG.13 047612-R 
MSG.14 047634-R 
MSG.17 050210-R 
MSG.18 050256-R 
MSG.19 050334-R 
MSG.2 047304-R 
MSG.20 050372-R 
MSG.21 050440-R 
MSG.28 050504-R 
MSG.29 050532-R 
MSG.30 050572-R 
MSG.7 047334-R 
MSG.8 047406-R 
MSG.9 047450-R 
NUM.RE 041376-R 
NXMI 003260-R 
ON.LIN 012376-R 
PFE.ER 050654-R 
PFE.ST 054376-R 
PRTSFR 004040-R 
P.BR.L 002172-R 


QsTi2 
QsT13 
QST14 
QST15 
QsT2 
asT3 
QST4 


043612-R 
043640-R 
043664-R 
043736-R 
043100-R 
043110-R 
043122-R 


043146-R 
043220-R 
QST8  043310-R 
QST9 043330-R 
QS10.1 043426-R 
QS10.2 043456-R 
RANDOM 016264-R 
RCV.DA 034520-R 
RC.STR 060210-R 
RC25$E 003554-R 
RC25.A 035540-R 
RC25.D 035542-R 
READ.C 013310-R 
READ.F 014166-R 
RECEIV 035760-R 
REC.DA 010270-R 
REC.EN 035764-R 
REC.ST 015744-R 
RES.SL 041352-R 
RETRIE 041400-R 


QST6 
QST7 


SMSCP. 061204-R 
SND.DA 052316-R 
SND.EN 037764-R 
SWITCH 041324-R 
SWP.CO 002214-R 
SWP.EN 002210-R 
SWP.Li 002204-R 
SWP.MA 002216-R 
SWP.RE 002212-R 
SWP.ST 002206-R 
SWP.TO 002202-R 
SWP.TR 002220-R 
TEMP 041414-R 
TICKS 041272-R 
TIME 042660-R 
TIP 041300-R 
TSFREE 061242-R 
TSPTHV 000000 

T1 021122-R 
T10 027434-R 
11 030270-R 
T12 031230-R 
T2 021346-R 
T3 022144-R 
14 022760-R 
T5 024314-R 
T6 025310-R 


SEQ 282 





DM.12 032656-R 
DO.RET 017674-R 
DRIVE. 043002-R 
DUP.MS 015600-R 
DSPCNT 002122-R 
EMSG.S 054722-R 
END.LB 041316-R 
END.MS 050060-R 
ERRBLK 002162-R 
ERRMSG 002160-R 
ERRNBR 002156-R 
ERRTYP 002154-R 
ERR.01 046424-R 


HWP.TA 033516-R 
H.EADD 041372-R 
H.SADD 041370-R 
INIT.C 005706-R 
INI.MS 047776-R 
1.AM.N 041312-R 
LBN 041354-R 
LBN.ED 041360-R 
LBN.ST 041356-R 
LBN.SZ 041362-R 
LOG.UN 035534-R 
L$ACP 002110-R 
LSAPT 002036-R 


**t Task builder statistics: 


LSHPTP 002022-R 
LSHRDL 002316-R 
LSHW 002166-R 
LSHWLE 002164-R 
LSICP 002104-R 
LSINIT 003130-R 
LSLADP 002026-R 
LSLAST 061242-R 
LSLOAD 002100-R 
L$LUN 002074-R 
LSMREV 002050-R 
LSNAME 002000-R 
L$NDHR 002364-R 


Total work file references: 62863. 
Work file reads: 0. 
Work file writes: 0. 
Size of core pool: 5486. words (21. pages) 
Size of work file: 3584. words (14. pages) 


Elapsed time:00:00:20 


MSG.BU 051320-R 
MSG.CO 051746-R 
MSG.DA 051432-R 
MSG.ER 051514-R 
MSG.HS 051546-R 
MSG.LB 051134-R 
MSG.PT 052000-R 
MSG.PW 047220-R 
MSG.RE 051646-R 
MSG.SA 051672-R 
MSG.SE 051472-R 
MSG.ST 051240-R 
MSG.SU 051576-R 


Mm 6 


P.IP.A 002166-R 
P.MASK 041320-R 
P.UNIT 002174-R 
P.VECT 002170-R 
P1 041330-R 
P2 041332-R 
P3 041334-R 
P4 041336-R 
P5 041340-R 
P6 041342-R 

043064-R 

043346-R 

043536-R 


RET.ST 041344-R 
RET.UN 041326-R 
RE.DAT 052354-R 
RINGBA 035556-R 
RT 033502-R 
RT.TAB 033514-R 
SDUP.S 060542-R 
SECOND 041274-R 
SEND.D 007446-R 
SEND.R 035762-R 
SET.CN 011112-R 
SET.IN 015672-R 
SFPTBL 002202-R 


17 025600-R 
T8 026150-R 
19 026722-R 
UNIT 035532-R 
VEC.AD 035536-R 
WRT.PR 017266-R 
XMT.DA 033520-R 
SEND.L 061244-R 
SSAVE2 031562-R 
SSAVE3 031576-R 
SSAVE4 031614-R 
SSAVES 031634-R 


SEQ 283 





CZRCFA CREATED BY TKB ON 8-JUL=83 AT 15:46 PAGE 1 
GLOBAL CROSS REFERENCE CREF vO01 
SYMBOL VALUE REFERENCES... 

ADAPTO 042714-R # ZRCFA1 ZRCFA2 ZRCFA3 

AHEAD. 3 


ZRCFAS 


ZRCFA3 


ZRCFA3 
ZRCFAS 
ZRCFAS 


ZRCFA3 
ZRCFAS 


ZRCFA3 
ZRCFAS 
ZRCFA2 
ZRCFA2 ZRCFA3 
ZRC 
ZRCFA3 
ZRCFAS 
ZRCFAS 
ZRCFA3 


ZRCFAS 


ZRCFAS 


# Z2RCFAI ZRCFA2 





SEQ 285 
CZRCFA CREATED BY TKB ON 8=JUL-83 AT 15:46 PAGE 2 
GLOBAL CROSS REFERENCE CREF O01 
SYMBOL VALUE REFERENCES... 


DBM20 9 045136-R # ZRCFAI ZRCFAS 
DBM21 Be eser-e # ZRCFAI ZRCFAS 


DBM28 peels # ZRCFAI ZRCFAS 


DBM33 060-R # ZRCFAI ZRCFA2 
DBM 046100-R # ZRCFAI ZRCFA2 
DBM35 122-R # ZRCFAI ZRCFA2 
D 046146-R # ZRCFAI ZRCFAS 
DBM37 046210-R # ZRCFAI ZRCFAS 
D 046254-R # ZRCFAI ZRCFA3 


DBM9 
DECODE 017764-R # ZRCFA2 ZRCFAS 
DHEAD. 051020-R # ZRCFAI ZRCFA3 


031670-R ZRCFA3S # ZRCFA4 

DM.10 032162-R ZRCFAS # ZRCFA4 
. 2346-R ZRCFA3S # ZRCFA4 

° 032656-R ZRCF # ZRCFA4 


DRIVE. 043002-R # ZRCFAI ZRCFA2 


EMSG.S 054722-R # ZRCFAI ZRCFA2 
END.LB 041316-R # ZRCFA1 ZRCFA2 ZRCFAS 
END.MS 050060-R # ZRCFA1 ZRCFAS 


ERR.01 046424-R # ZRCFAI ZRCFA2 
ERR.02 046450-R # ZRCFAI ZRCFA2 


CZRCFA 
GLOBAL 


CREATED BY TKB 


VALUE 


016522-R 
052256-R 
0 “R 


002040-R 


CROSS REFERENCE 


ON 8-JUL-83 AT 15:46 


REFERENCES... 
# ZRCFA2 ZRCFA3 
# ZRCFAI ZRCFAS 
# ZRCFA2 ZRCFA3 
# ZRCFAI ZRCFA2 
# ZRCFA2 ZRCFAS 
# ZRCFAI ZRCFA2 
# ZRCFAI ZRCFA2 
# ZRCFAI ZRCFAS 
# ZRCFAI ZRCFA2 
# ZRCFAI ZRCFA2 
# ZRCFAI ZRCFAS 
# ZRCFAI ZRCFAS 
# ZRCFAI ZRCFAS 
# ZRCFAI ZRCFA2 
# ZRCFAI ZRCFA2 
# ZRCFA2 ZRCFAS 
# ZRCFA2 
# ZRCFA2 ZRCFAS 
# ZRCFA2 
# ZRCFA2 
# ZRCFA2 
# ZRCFA2 
# ZRCFA2 
# ZRCFA2 
# ZRCFA2 
# ZRCFAI ZRCFA2 
# ZRCFAI ZRCFA2 
# ZRCFAI ZRCFA2 
# ZRCFAI ZRCFA2 
# ZRCFA2 ZRCFAS 
# ZRCFAI ZRCFAS 
# ZRCFAI ZRCFA2 
# ZRCFAI ZRCFA2 
# ZRCFAI ZRCFA2 
# ZRCFAI ZRCFA2 
# ZRCFAI ZRCFAS 
# ZRCFAI ZRCFA2 
# ZRCFAI 
# ZRCFAI 
ZRCFA1 # ZRCFA2 
# ZRCFA1 
ZRCFA1 # ZRCFA2 
# ZRCFAI 
ZRCFA1 # ZRCFA2 
# ZRCFAI 
# ZRCFAI 
RCFA1 ZRCFA2 
# ZRCFAI 
# ZRCFAI 
# ZRCFAI 
# ZRCFAI ZRCFA2 
# ZRCFAI 


ZRCFA3 


ZRCFA3 
ZRCFA3 


ZRCFA3 
ZRCFAS 


ZRCFAS 
ZRCFA3 
ZRCFAS 
ZRCFAS 


ZRCFAS 
ZRCFAS 


ZRCFA3 


PAGE 3 
CREF 


v01 


SEQ 286 


SEQ 287 


CZRCFA CREATED BY TKB ON 8=JUL=83 AT 15:46 PAGE 4 
GLOBAL CROSS REFERENCE CREF O01 
SYMBOL VALUE REFERENCES... 

gl ett rae # ZRCFAI 


# ZRCFA2 
# ZRCFA2 


# ZRCFA2 


# ZRCFA2 
# ZRCFAS 


# ZRCFA2 
# ZRCFA2 


ZRCFA2 
ZRCFA3 


ZRCFAS ZRCFA3 
ZRCFA3 
041314-R # ZRCFAI ZRCFA2 ZRCFAS 





SEQ 288 
CZRCFA CREATED BY TKB ON 8-JUL-83 AT 15:46 PAGE 5 


GLOBAL CROSS REFERENCE CREF vO01 
VALUE REFERENCES... 
364-R # ZRCFAI ZRCFA3 


ZRCFA3 


ZRCFAS 
ZRCFA3 


ZRCFA3 


ZRCFAS 


ZRCFA2 


ZRCFAS 
ZRCFA2 ZRCFAS 


ZRCFAS 
ZRCFA2 ZRCFA3 


ZRCFAS 
# ZRCFAI ZRCFA2 ZRCFAS 





SEQ 289 


CZRCFA CREATED BY TKB ON 8-JUL-83 AT 15:46 PAGE 6 
GLOBAL CROSS REFERENCE CREF 01 
VALUE REFERENCES... 
et oem # ZRCFAI ZRCFA2 


ZRCFAS 
ZRCFAS 


ZRCFA3 


ZRCFA3 
ZRCFAS 
ZRCFA3 
ZRCFAS 
ZRCFA3 


ZRCFAS 
ZRCFAS 
ZRCFAS 
ZRCFA3 
ZRCFA3 
ZRCFAS 
ZRCFA2 
ZRCFA3 
ZRCFAS 
ZRCFAS 
ZRCFA ‘ 


-R 
2216-R ZRCFAS 
002212-R # ZRCFAI ZRCFA2 ZRCFAS 





CZRCFA 


SSAVES 


CREATED BY TKB 


CROSS REFERENCE 
REFERENCES... 


VALUE 
002206-R 


041300-R 
061242-R 
000000 

021122-R 


031634-R 


# ZRCFA 


B16SA 
B16MU 


1 ZRCFAS 
ZRCFA2 


ZRCFA2 
ZRCFAS 


RBRBRVVVVVAVVeVVeVzez 


ZRCFA2 


# BI6SAV 
ZRCFA2 
V F 


ZRCFAS 
L # BI6SAV 


ZRCFA3 
ZRCFAS 
ZRCFAS 


ZRCFAS 


ZRCFA3 
ZRCFAS 


ZRCFA3 
ZRCFA2 


ZRCFA2 


ON 8=JUL=83 AT 15:46 


ZRCFA3 


PAGE 7 
CREF 


v01 





